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