Problem beim öffnen externer Programme über Tabsheet !

visitorz · Hält's aus hier Beiträge: 9

Hallo,

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

Mein Code:

markieren

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 · Beiträge: 168 WINXP pro, SUSE Linux 9.0 D7 Pers.

PageControl hat folgende Eigenschaften:

ActivePage und ActivePageIndex

So klappts...

markieren

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;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme