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

[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