Transparente Form verschieben

[snapman]

Hallo, habe ein kleines Problem.

Habe mit Delphi 2006 eine Transparente Form erstellt, weil ich keine Border möchte und das ganze selber machen will.
Allerdings kann man das ganze natürlich jetzt nichtmehr verschieben weil die Leiste oben fehlt.

Hat jemand eine Idee wie ich das so machen kann das die ganze Form zum verschieben dient? Das man also wo reinklickt und die Form wegziehen kann.

Habe mal eine Demo angehängt..vielleicht könnt ihr mir helfen

[Thorben77]

Zitat:

Zitat von snapman

Habe mit Delphi 2006 eine Transparente Form erstellt, weil ich keine Border möchte und das ganze selber machen will.
Allerdings kann man das ganze natürlich jetzt nichtmehr verschieben weil die Leiste oben fehlt.

Das leuchtet mir irgendwie nicht ganz ein. Warum machst Du das Fenster transparent, wenn Du keinen Rand haben willst :gruebel: ?

Die Lösung für Dein Problem findet sich mit der DP-Suche: Fenster verschieben.
Luckie hat dazu z.B. was in der Codebibliothek geschrieben: Fenster ohne Titelzeile verschieben.

[snapman]

Hallo,
danke für die Antwort.
Leider funktioniert die Lösung von Luckie nicht ganz.
Ich kann die Form zwar ein paar mal verschieben, aber danach geht es plötzlich nichtmehr.

Woran kann das liegen?

//EDIT

habe einfach den Teil

if (Message.Result = htClient) and
(ControlAtPos(Point(Message.xPos, Message.yPos), True, True) <> nil)
...

entfernt, nun gehts

[snapman]

So ein mist, jetzt ingoriert Delphi einfach Klicks auf TImages, was ja auch logisch ist.

Hm hat da jemand ein Workaround?

[MCXSC]

Auch wenns alt ist :) Hier das "Workaround":

Delphi-Quellcode:

procedure TForm1.Image1MouseDown
   (Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer) ;
begin
   ReleaseCapture;
   SendMessage(Form1.Handle, WM_SYSCOMMAND, 61458, 0) ;
end;