Cursor verschwindet in TEdit nach Form.Show

[vt670]

für alle die jemals vor dem gleichen Problem stehen sollten, hier die Lösung der Workaround:

Delphi-Quellcode:

procedure TKBForm.myShowForm ( Work : TForm );
BEGIN
WITH Work DO
     BEGIN
     SetWindowPos( Handle,
                   HWND_TOPMOST,
                   Left,Top, Width,Height,
                   SWP_NOACTIVATE or
                   SWP_NOMOVE or
                   SWP_NOSIZE or
                   SWP_SHOWWINDOW );
     END;
END;


procedure TKBForm.myHideForm ( Work : TForm );
BEGIN
WITH Work DO
     BEGIN
     SetWindowPos( Handle,
                   HWND_TOPMOST,
                   Left,Top, Width,Height,
                   SWP_NOACTIVATE or
                   SWP_NOMOVE or
                   SWP_NOSIZE or
                   SWP_HIDEWINDOW );
     END;
END;