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

zB mit:

markieren

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

Super, danke!

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

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

markieren

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 ;)

Ja, das weiß ich ja.

Ich suche aber eher was nach dem Motto:

if IrgendeinDialogFenster then

Moin, Moin,
mit

zusammenfalten · markieren

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.

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.

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

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.

Zitat von MCXSC:

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

Zu früh gefreut... Neee.