DLL-Form nach erstem Aufruf nicht aktiv (keine Eingabe möglich)

[Mikro79]

Hallo,

ich habe ein Problem mit einer DLL-Anwendung mit Formularen.

Ich rufe aus einem WinCC-Visualisierungssystem meine Delphi-DLL auf.
Beim Aufruf wird ein Delphi-Formular erzeugt und angezeigt. So weit, so gut...

Nun bekommt dieses Formular leider nicht den Fokus. Einfach gesagt, es ist grau.
Erst wenn ich mit der Maus hinein klicke, bekommt es den Fokus.
Problem hierbei ist, dass das Formular direkt eine Eingabe in ein Edit erwartet (Es handelt sich im Grunde um ein Login-Dialog).
Dies funktioniert leider nicht, solange ich nicht irgendwo in das Formular geklickt habe.
Das Edit-Feld hat zwar den Fokus, der Cursor blinkt in dem Edit aber das gesamte Formular ist nicht aktiv (grau).

Interessanterweise passiert das auch immer nur beim ersten Aufruf der DLL (d.h. nach dem Start von WinCC, der aufrufenden Applikation).

Ich habe schon einiges probiert, von SetActiveWindow, SetForegroundWindow etc.
Hat jemand eine Idee, wie ich eine Delphi-Applikation als in Windows aktive Applikation setzen kann?
Meiner Meinung nach kann das nicht mit Delphi internen Mitteln passieren sondern irgendwie über Windows-Funktionen geschehen.

Wäre dankbar wenn einer irgendwelche Vorschläge oder Ideen hat...

Gruß, Mirko

[Zacherl]

Vielleicht hilft dir diese Funktion weiter:
http://www.swissdelphicenter.ch/en/showcode.php?id=261

[EWeiss]

Oder versuchs mal mit GWL_HWNDPARENT
und anschließenden SetActiveWindow

gruss

[Mikro79]

Hi,

vielen Dank für eure schnellen Antworten.
Habe es inzwischen mit einem recht hässlichen (aber funktionalen) Workaround gelöst (simulierter Mausklick auf das Formular um Fokus zu erhalten):

Code:

    Inp.Itype := INPUT_MOUSE;
    Inp.mi.dwFlags := MOUSEEVENTF_LEFTDOWN or MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE;
    Inp.mi.dx := round((n_Left+10) * (65535 / Screen.Width));
    Inp.mi.dy := round((n_Top+10) * (65535 / Screen.Height));
    Inp.mi.time := 0;
    Inp.mi.dwExtraInfo := 0;
    SendInput(1, Inp, SizeOf(Inp));

    Inp.Itype := INPUT_MOUSE;
    Inp.mi.dwFlags := MOUSEEVENTF_LEFTUP or MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE;
    Inp.mi.dx := round((n_Left+10) * (65535 / Screen.Width));
    Inp.mi.dy := round((n_Top+10) * (65535 / Screen.Height));
    Inp.mi.time := 0;
    Inp.mi.dwExtraInfo := 0;
    SendInput(1, Inp, SizeOf(Inp));

Werde aber, wenn ich Zeit finde, eure Lösungen mal testen.

Nochmal vielen Dank.

Gruß, Mirko

[EWeiss]

Ein GWL_HWNDPARENT mit SetWindowLong hätte dir auch den Focus geben müssen.
Sollte zumindest das einfrieren der Form aus der DLL verhindern.

Aber nun ja deine Lösung scheint ja zu funktionieren.

gruss