Erkennen ob ein Fenster verdeckt wird

[Delphi.Narium]

Kurzer Test mit 'nem Form, 'nem Button, 'nem TPageControl mit zwei Tabs und auf jedem Tab ein Panel.

Delphi-Quellcode:

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 Panel1'); // ist nur erfüllt, wenn Tab 1 sichtbar
  if Panel2.Parent.Visible then ShowMessage('Parent Panel2'); // ist nur erfüllt, wenn Tab 2 sichtbar
end;

Es könnte also (mit etwas Glück) ausreichen, auf die Sichtbarkeit des Parents der Formulare abzufragen.

[venice2]

Zitat von Delphi.Narium:

Kurzer Test mit 'nem Form, 'nem Button, 'nem TPageControl mit zwei Tabs und auf jedem Tab ein Panel.

Delphi-Quellcode:

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 Panel1'); // ist nur erfüllt, wenn Tab 1 sichtbar
  if Panel2.Parent.Visible then ShowMessage('Parent Panel2'); // ist nur erfüllt, wenn Tab 2 sichtbar
end;

Es könnte also (mit etwas Glück) ausreichen, auf die Sichtbarkeit des Parents der Formulare abzufragen.

So ist es.
Es reicht einfach wie im ersten Beitrag schon gesagt die aktive Seite vom Tab abzufragen alles andere ist Sinnlos.

Denn nur weil das Child Window in dem Fall als bsp. das Panel auf dem alle Komponenten abgelegt sind unsichtbar\in den Hintergrund geschaltet wird
bleiben die anderen Komponente trotzdem sichtbar.
Das betrifft also auch deine Formen die dort abgelegt sind.

Wenn ich meine Küchentür öffne dann sehe ich die Küche wird sie hingegen geschlossen dann sehe ich sie nicht mehr.
Bedeutet aber nicht das diese nun nicht mehr sichtbar ist. Es wird einem nur die Sicht darauf genommen.

[dataspider]

Ich habe mal mein "Spiel - Projekt" angehangen. (erfordert DevExpress)
So ist es vielleicht besser verständlich.
Der Code ist natürlich nicht sauber...

Ich verwende einen MouseHook, Screen.OnActiveContolChange und WMMouseActivate der BasisForm.
Damit kann ich fast alles bekommen.
Wenn ich mich aber z.B. mit der Tab - Taste bis zum Aktivieren einer Page vorarbeite,
kann ich mit den Cursortasten die aktive Page wechsel und bekomme davon nichts mit.
Daher wäre es ideal, wenn die Form irgendeine Nachricht erhalten würde.

Frank

[venice2]

Ich versuche es noch einmal.

Du hast keine Möglichkeit auf die Form hin zu prüfen ob diese Sichtbar\Verdeckt ist oder nicht.
Denn Sichtbar ist sie immer auch im verdeckten zustand.
Außer wie @Delphi.Narium schon sagte über den Visible Status des entsprechenden Panels oder direkt über Tab\Seite.
Was hält dich davon ab einfach eine Variable BOOL mit welchen Namen auch immer einzusetzen und den Stand daraufhin zu prüfen welche Seite gerade aktiv ist.

Mein Rat!
Lasse dir diesbezüglich etwas anderes einfallen.

Bsp.
EDIT:

Delphi-Quellcode:

const
  F_VISIBLE = WM_USER + 100;
var
  bVisibleState: BOOL;
...
// Bei jedem Klick auf ein Panel ob über Tasten oder Maus sendest du eine Message an deine Winproc
// Auf bVisibleState hin prüfen und welche Tab Seite aktiv ist

SendMessage(Self.Handle, F_VISIBLE, bVisibleState, LParam);

// In der Winproc wertest du jetzt aus.
  case (Msg) of
    F_VISIBLE:
      //tu was

oder du erstellst dein eigenes Event.

Bin raus..

[Delphi.Narium]

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 garnichtmehr sehen" auslösen?

Das Erste sollte mit meinem Vorschlag funktionieren.

Das zweite könntest Du eventuell durch das Schicken einer eigenen Message beim Seitenwechsel auslösen. Kommt diese Message, prüfen die empfangenden Formulare jeweils analog zu meinem Vorschlag.

Als "Versandort" für diese Message fiele mir da nur das OnChange-Ereignis des PageContols ein.

[dataspider]

Zitat von Delphi.Narium:

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 garnichtmehr sehen" auslösen?

Genau das...
Sorry, dass das nicht verständlich rüber kam.
Ich hatte die Hoffnung, dass ich mir die Zuweisung des OnActivePageChanged bei jedem PageControl ersparen kann.

Vielen Dank an alle Beteiligten!

Frank

[Delphi.Narium]

Zitat:

Ich hatte die Hoffnung, dass ich mir die Zuweisung des OnActivePageChanged bei jedem PageControl ersparen kann.

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. ä.).