Hallo
Ich hab folgendes Problem. Ich habe eine Hauptanwendung aus der weiter Anwendungen geöffnet werden können. Nun nutze ich in mehreren Anwendungen eine Form die optional aufgerufen werden kann. Ich möchte nun aber, das Systemweit diese optionale Form nur einmal aufgerufen werden kann.
Da sich das alles verwirrend anhört, nochmal "Bildlich"
Code:
Hauptanwendung ----> Anwendung1 -> FormX
----> Anwendung2 -> FormX
----> Anwendung3 -> FormX
----> FormX
Es ist also möglich die optionale Form (FormX) mehrfach zur gleichen Zeit aufzurufen, da man auch die Anwendungen 1-3 gleichzeitig neben der Hauptanwendung starten kann. FormX soll allerdings nur einmal aufgerufen werden können.
Bisher versuche ich das so:
Delphi-Quellcode:
procedure Hauptanwendung.ButtonFormxClick(Sender: TObject);
var Handle:HWND;
begin
Handle:=FindWindow(pchar('
TApplication'),
nil);
// hier müsste das Parentfenster dynamisch gesucht werden
Handle:=FindWindowEx(
Handle,0,pchar('
TWFormx'),pchar('
Formx'));
if (
Handle=0)
then
begin
FormX.show;
end
else
showmessage('
FormX ist bereits in einem anderen Programmteil geöffnet.');
end;
Wie kann ich nun prüfen ob FormX offen ist, egal aus welcher Anwedung heraus?
Es ist immerhin ein ChildWindow. Nun könnte ich konstant auf die Parentwindows mittels Klasse und Caption prüfen, aber das wäre nicht schön und es handelt sich um mehr Anwendungen als in meinem Beispiel.
Danke.