Ich habe jetzt über einen SendKey Trick das Formular ausgetrickst. Nach 1 Sekunde wird dieser Timer aufgerufen:
Code:
procedure TfrmPrintRechnung.tmr1Timer(Sender: TObject);
var key:Char;
begin
//Kleiner Hack, da der Fokus nicht richtig gesetzt wird, simuliere ich ein Tastendruck
key:='X';
Keybd_event(vk_Menu, 0, 0, 0);
keybd_event(vkKeyScan(key), 0, 0, 0);// der eigendliche Tastendruck
keybd_event(vkKeyScan(key), 0, KEYEVENTF_KEYUP, 0);
Keybd_event(vk_Menu, 0, KEYEVENTF_KEYUP, 0);
end;
Damit wird dann tatsächlich der Fokus gesetzt.
Das ist wirklich nicht was ich mir vorstelle, aber ich suche schon seit 3 Stunden nach einer Lösung.
Falls jemand eine bessere Lösung weiss, bitte posten!!!
Gruß
Alfonso