Ich habe das jetzt mit einem Doppelaufruf gelöst, Tag der Form wird im OnShow auf 0 gesetzt:
Delphi-Quellcode:
Keyboardheight := Bounds.Height;
// weil der erste Aufruf falsche Werte liefert hier der Versuch das beim ersten Mal zu wiederholen
if FormAuftrag.Tag = 0 then
begin
FormAuftrag.Tag := 1;
MemoEingabe.ResetFocus;
MemoEingabe.SetFocus; //erneute Anzeige Keyboard
end;
MemoEingabe.Size.Height := FormAuftrag.ClientHeight - Keyboardheight - 40;
Das funktioniert jetzt zuverlässig, nur halt Mist wenn man solche Krücken suchen und verwenden muss...
Ciao
Stefan