PageControl-tabsheet-focus

[poterp]

Hallo,
ich habe da ne frage und zwar ich habe auf meine anwendung ein PageControl mit 3 Tabsheet
(Page1 bis Page3)
was ich da möchte ist, wenn ich die Page1 wähle, dann sollte ich eine Nachrichte erhalten zb.:
"Hallo Page1". Ich habe diesen folgenden Code verwendet:

Delphi-Quellcode:

procedure TForm_Auswertung.TabSheet3Enter(Sender: TObject);
begin
   if ((Sender as TPageControl).ActivePage = TabSheet3) then
     begin
   showmessage('hallo tabsheet3');
 end;
end;

aber es passiert nix. hat jemand eine Idee??
grüß
poter

[mkinzler]

Ich würde den Tabwechsel überwachen

[poterp]

wie geht es denn mit der Überwachung?

[Matze]

Hallo poter,

wenn ich es richtig verstanden habe, müsste es so gehen:

Delphi-Quellcode:

procedure TForm1.PageControl1Change(Sender: TObject);
begin
  ShowMessage('Hallo ' + PageControl1.ActivePage.Caption);
end;

[mkinzler]

Mit dem onChange-Events

[poterp]

nicht ganz. Ich suche etwas wie

Delphi-Quellcode:

if PageControl2.ActivePage then
oder
if PageControl2.ActivePage > 0
etc...

der sinn ist, dass wenn ich eine pageControl wähle, musst ein paar daten über den Adoquery geladen werden und die Daten, die via andere PageControl zurverfügung sind, müssen gecleart werden

[mkinzler]

Du kannst doch in der Eventmethode die Page abfragen

[poterp]

klar aber ich tue mich einbischen schwer mit den Synthax

[DeddyH]

Meinst Du so etwas?

Delphi-Quellcode:

procedure TForm1.PageControl1Change(Sender: TObject);
begin
  if PageControl1.ActivePageIndex > 0 then
    ShowMessage('Hallo, schöne Welt');
end;

[poterp]

Leider nicht. Diese PageControl hat 3 TabSheet und jede Tabsheet bei clicken bzw. erhalten von focus muss ein ereignis lösen bzw. Daten laden