Forum: Win32/Win64 API (native code)
by Delphi.Narium,
16. Nov 2021
Wieviele hast Du denn davon?
Ein abgeleitetes PageControl machen, das schon das entsprechende Ereignis (mit allem Drum und Dran) enthält?
Ok, das hieße dann auch einmal durch den gesamten Quelltext durch und entsprechend anpassen.
Oder das Ereignis zur Laufzeit zuweisen, im FormCreate (o. ä.).
Forum: Win32/Win64 API (native code)
by Delphi.Narium,
16. Nov 2021
Mir ist (vermutlich) die Fragestellung noch nicht klar geworden:
Möchtest Du im Formular nachfragen, ob das Formular für den Anwender sichtbar ist, sich also auf der aktiven Seite des PageControl befindet?
Oder möchtest Du beim Wechsel der aktiven Seite des PageControls im Formular quasi eine Reaktion der Art "Ups, ich bin gerade sichtbar geworden" bzw. "och nö, man kann mich ja...
Forum: Win32/Win64 API (native code)
by Delphi.Narium,
16. Nov 2021
Kurzer Test mit 'nem Form, 'nem Button, 'nem TPageControl mit zwei Tabs und auf jedem Tab ein Panel.
procedure TForm1.Button1Click(Sender: TObject);
begin
if Panel1.Visible then ShowMessage('Panel1'); // ist immer erfüllt, egal welcher Tab aktiv
if Panel2.Visible then ShowMessage('Panel2'); // ist immer erfüllt, egal welcher Tab aktiv
if Panel1.Parent.Visible then ShowMessage('Parent...