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

[DeddyH]

Dann werte den ActivePageIndex doch einfach per case aus.

[poterp]

wie geht das?

[DeddyH]

Delphi-Quellcode:

procedure TForm1.PageControl1Change(Sender: TObject);
begin
  case PageControl.ActivePageIndex of
    0: Machwas_mit_der_ersten_Seite;
    1: Machwas_mit_der_zweiten_Seite;
    2: Machwas_mit_der_dritten_Seite;
  end;
end;

[mkinzler]

Delphi-Quellcode:

Case PageControl.ActivePageIndex of
  1: ..
  2: ...
  ...
end;

[poterp]

Hör sich schon gut an danke. ich probiere es

[poterp]

es Klappt nicht

[poterp]

Hallo,
so habe ich es gelöst:

Delphi-Quellcode:

procedure TForm1.PageControl1Change(Sender: TObject);
begin
if PageControl1.ActivePage.Caption = Tabsheet1.Caption then
begin
showmessage('hallo');
end
else
if PageControl1.ActivePage.Caption = Tabsheet2.Caption then
begin
showmessage('Na');
end
else
if PageControl1.ActivePage.Caption = Tabsheet3.Caption then
begin
showmessage('3');
end
else
end;

grüß
poter

[grenzgaenger]

sag mal, weshalb nimmste nicht das TapSheet.onEnter ereignis?

[poterp]

Ich habe es auch probiert aber ging nicht

[grenzgaenger]

haste ein tTabSheet auf dein tPageControl abgelegt oder mit der rechten Maustaste ein integriertes erzeugt? Im ersten falle funktionierts...

[poterp]

Ich habe es mit der recht taste erzeugt

[valu]

oder geh doch einfach bei dem entsprechenden Tabsheet in das OnShow Ereignis, das wird dann jedes mal aufgerufen wenn du das jeweilige TabSheet aufrufst.

Ich hoffe ich habe deine Frage richtig verstanden.

Gruß Michi