Forum: Object-Pascal / Delphi-Language
Delphi
by poterp,
2. Sep 2007
Ich habe es mit der recht taste erzeugt
Forum: Object-Pascal / Delphi-Language
Delphi
by poterp,
2. Sep 2007
Ich habe es auch probiert aber ging nicht
Forum: Object-Pascal / Delphi-Language
Delphi
by poterp,
1. Sep 2007
Hallo,
so habe ich es gelöst:
procedure TForm1.PageControl1Change(Sender: TObject);
begin
if PageControl1.ActivePage.Caption = Tabsheet1.Caption then
begin
showmessage('hallo');
end
else
Forum: Object-Pascal / Delphi-Language
Delphi
by poterp,
1. Sep 2007
Hör sich schon gut an danke. ich probiere es
Forum: Object-Pascal / Delphi-Language
Delphi
by poterp,
1. Sep 2007
Leider nicht. Diese PageControl hat 3 TabSheet und jede Tabsheet bei clicken bzw. erhalten von focus muss ein ereignis lösen bzw. Daten laden
Forum: Object-Pascal / Delphi-Language
Delphi
by poterp,
1. Sep 2007
klar aber ich tue mich einbischen schwer mit den Synthax
Forum: Object-Pascal / Delphi-Language
Delphi
by poterp,
1. Sep 2007
nicht ganz. Ich suche etwas wie
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
Forum: Object-Pascal / Delphi-Language
Delphi
by poterp,
1. Sep 2007
wie geht es denn mit der Überwachung?
Forum: Object-Pascal / Delphi-Language
Delphi
by poterp,
1. Sep 2007
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:
procedure TForm_Auswertung.TabSheet3Enter(Sender: TObject);
begin
if ((Sender as TPageControl).ActivePage = TabSheet3)...