Cursor verschwindet in TEdit nach Form.Show

[vt670]

Hallo,

in einem "onEnter" eines TEdit möchte ich Fenster anzeigenn und anschliessend wieder zurück zum Edit.
Dummerweise wird in dem Edit anschliessend kein Cursor angezeigt.

Delphi-Quellcode:

procedure TForm1.EditEnter(Sender: TObject);
VAR
P : TPoint;

begin
IF NOT ShortCutForm.Visible
   THEN
   ShortCutForm.Show;
Application.ProcessMessages;


IF Edit.CanFocus
   THEN
   Edit.SetFocus;

Application.ProcessMessages;
// vergebliche versuche grrrrrr
Edit.Text := '123456';
Edit.SelStart  := 1;
Edit.SelLength := 3;
Edit.Refresh;
Edit.Cursor := crDefault;
GetCaretPos( P );
ShowCaret(Edit.Handle);
Form1.Refresh;
end;

Wenn ich das Form jedoch anklicke und anschliessend das Edit im Hauptform anklicke wird der Cursor angezeigt.

[dataspider]

Kann es sein, dass das Form den Focus nicht wieder bekommt?
Cu, Frank

[vt670]

Zitat:

Zitat von dataspider

Kann es sein, dass das Form den Focus nicht wieder bekommt?
Cu, Frank

Hallo Frank,

hatte ich auch schon gedacht ist aber leider nicht der fall. ActiveControl und ActiveForm habe ich mit dem Debugger gepüft. Ein Tastendruck geht auch an das Edit nur halt ohne Cursor :(

danke für deine Antwort

[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;