Fenster ohne Rahmen (StayOnTop) verschwindet

[wendelin]

Hallo DPler,

mein Problem ist folgendes:

in meinem kleinen Testprogramm (zur Übung von Drag&Drop) von einem Tooltip oder Info-Fenster welches ohne Rahmen und StayOnTop ist, kam ich auf die Idee dieses Fenster ohne Drag (das klappt ja) nur am MausCursor mitlaufen zu lassen.

In dem Moment allerdings wenn der MausCursor (Fadenkreuz) erscheint, verschwindet das "StayOnTop - Infofenster". ich habe dafür keine Erklärung,zumal
wenn ich den Button Form1-Run drücke ist ist das StayOnTopFenster wieder da
und saust über den Monitor.

Vieleicht fällt Euch ja eine Erklärung und ein Tip für mich ein !
Schaut Euch mal den Anhang an.

Danke

Wolfgang

[Uwe Raabe]

Mouse.CursorPos gibt bereits Screen-Koordinaten zurück. MyMouse := Form1.ClientToScreen(Mouse.CursorPos); gibt also unsinnige Werte.

[hathor]

Geht's nicht einfacher?

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
VAR   MyMouse : TPoint;
begin
      MyMouse := Mouse.CursorPos;
      Label1.Left:=  MyMouse.X-100;
      Label1.Top:= MyMouse.y-100;
end;

[wendelin]

Herzlichen Dank Herr Raabe, herzlichen Dank 'Hathor' für die sehr schnelle Antwort.
Programm läuft sofort sooo wie ich es mir vorgestellt habe.

Gruß
Wolfgang