Entwickler-Ecke :: Thema anzeigen - Problem beim öffnen externer Programme über Tabsheet !

visitorz - So 21.11.04 19:03
Titel: Problem beim öffnen externer Programme über Tabsheet !

Hallo,

Ich habe folgendes Problem undzwar möchte ich ein Programm öffnen lassen wenn man auf das TabSheet5 klickt!

Mein Code:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.PageControl1Change(Sender: TObject);
begin
 IF TabSheet5.enabled then
  ShellExecute(handle, 'open', 'test.exe', nil, nil, SW_SHOW);

  end;

Mein Programm besetzt insgesamt 5 TabSheets und komischerweise öffnet sich jetzt immer das externe Programm wenn ich auf irgendeinen TabSheet klicke ich möchte aber das, dass externe Programm sich nur öffnet wenn ich das TabSheet5 anklicke.... Habe leider keine passende property, function, procedure dafür gefunden hoffe ihr könnt mir helfen.

Moderiert von Christian S.: Code- durch Delphi-Tags ersetzt.

herzi - So 21.11.04 21:51

PageControl hat folgende Eigenschaften:

ActivePage und ActivePageIndex

So klappts...

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.PageControl1Change(Sender: TObject);
begin
if PageControl1.ActivePage.Name='TabSheet2' then
  ShellExecute(handle, 'open', 'test.exe', nil, nil, SW_SHOW);
end;

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!