Geöffnete Forms auslesen/ermitteln?

[MCXSC]

Hallo,

eine kleine Frage bezüglich geöffneter Fenster eines Programmes.

Und zwar würde ich gerne folgende Dinge auslesen können (jeweils immer nur vom eigenen Programm):

-> Geöffnete Forms
-> Form, das ganz oben liegt

Ich weiß allerdings weder ob das überhaupt möglich ist, noch wie ich das bewerkstelligen sollte...

Danke,
MCXSC

[Sunlight7]

zB mit:

Delphi-Quellcode:

   var i:Integer;
begin
   Memo1.Lines.Clear;

   For i:=0 to Screen.FormCount-1 do
      Memo1.Lines.Add(Screen.Forms[i].Caption{oder .Name});

Die 1. Form, die Du bekommst ist im Vordergrund (sofern Deine Anwendung den Fokus hat).

[MCXSC]

Super, danke!

Gibt es auch noch die Möglichkeit zu testen, ob irgendein Dialog (Öffnen, Speichern, MessageDlg, ...) geöffnet ist?

[Sunlight7]

Ob ein Dialogfeld geöffnet ist weißt Du ja, denn

Delphi-Quellcode:

ShowMessage('Vorm Dialog');
// hier wird gewartet, bis Du das Meldungsfenster weg klickst

// Dann kommt das OpenDialog
OpenDialog1.Ecxecute;
// und wartet wieder, bis Du es weg klickst

// Und nochma
ShowMessage('Nach dem Dialog');
// Du weißt bescheid ;)

[MCXSC]

Ja, das weiß ich ja.

Ich suche aber eher was nach dem Motto:

if IrgendeinDialogFenster then

[taaktaak]

Moin, Moin,
mit

Delphi-Quellcode:

with Application do 
  for i:=0 to ComponentCount-1 do 
    if Components[i] is TForm then begin 
      // ..
      // prüfe, welches Form gefunden wurde
      // und nutze das Ergebnis
      for j:=0 to Components[i].ComponentCount-1 do 
        if Components[i].Components[j] is ~~ then // < Typ der gesuchten Komponente einsetzen
          // ..
          // prüfe, welche Komponente gefunden wurde
          // und nutze das Ergebnis
      end;

werden alle Formulare und Komponenten deiner Anwendung "durchlaufen".
Vielleicht hilft es dir.

[alzaimar]

Viele Dialoge sind Systemdialoge und nicht in der Komponenten- btw. Forms-Kollektion enthalten. Soweit ich mich erinnere, sind das Fenster mit dem Klassennamen '#32768'. Du könntest also schauen, ob ein Child-Fenster deiner Anwendung diesen Klassennamen besitzt. Dazu musst du die Kindfenster mit EnumChildwindows durchlaufen.

[MCXSC]

Hm, das greift aber nicht auf OpenXXXDialog/MessageDlg/etc. zu?

[taaktaak]

alzaimar hat natürlich Recht, also einfach ausprobieren.
Aber selbst wenn es dir im Augenblick nicht hilft, in einem anderen Fall kannst du es bestimmt noch mal verwenden.

[alzaimar]

Zitat von MCXSC:

Hm, das greift aber nicht auf OpenXXXDialog/MessageDlg/etc. zu?

Zu früh gefreut... Neee.