Einzelnen Beitrag anzeigen

Mikro79

Registriert seit: 25. Sep 2012
4 Beiträge
 
#4

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

  Alt 26. Sep 2012, 12:00
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
  Mit Zitat antworten Zitat