Delphi 2006 und Cursor Caret

[gluglu]

Habe ein Vorschlag gefunden aber selber, ehrlich gesagt, noch nicht ausprobiert :

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;