Delphi-PRAXiS
Seite 1 von 3  1 23   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi PageControl-tabsheet-focus (https://www.delphipraxis.net/98809-pagecontrol-tabsheet-focus.html)

poterp 1. Sep 2007 21:49


PageControl-tabsheet-focus
 
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 1. Sep 2007 21:51

Re: PageControl-tabsheet-focus
 
Ich würde den Tabwechsel überwachen

poterp 1. Sep 2007 21:53

Re: PageControl-tabsheet-focus
 
wie geht es denn mit der Überwachung?

Matze 1. Sep 2007 21:54

Re: PageControl-tabsheet-focus
 
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 1. Sep 2007 21:54

Re: PageControl-tabsheet-focus
 
Mit dem onChange-Events

poterp 1. Sep 2007 22:06

Re: PageControl-tabsheet-focus
 
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 1. Sep 2007 22:09

Re: PageControl-tabsheet-focus
 
Du kannst doch in der Eventmethode die Page abfragen

poterp 1. Sep 2007 22:14

Re: PageControl-tabsheet-focus
 
klar aber ich tue mich einbischen schwer mit den Synthax

DeddyH 1. Sep 2007 22:17

Re: PageControl-tabsheet-focus
 
Meinst Du so etwas?
Delphi-Quellcode:
procedure TForm1.PageControl1Change(Sender: TObject);
begin
  if PageControl1.ActivePageIndex > 0 then
    ShowMessage('Hallo, schöne Welt');
end;

poterp 1. Sep 2007 22:25

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


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:28 Uhr.
Seite 1 von 3  1 23   

Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf