Einzelnen Beitrag anzeigen

Striker09

Registriert seit: 4. Sep 2010
5 Beiträge
 
#1

Form ohne Titelleiste verschieben

  Alt 5. Sep 2010, 02:39
Hallo, habe diesen Thread hier entdeckt:

http://www.delphipraxis.net/38883-fo...le-bsnone.html

Meine Frage ist, wo genau muss ich den Code eingeben? Bin Anfänger in Delphi.
Kann jemand ein Screenshot davon machen?

Hier ist der Code:

Um ein Formular ohne Titelleiste noch mit der Maus verschieben zu können, muß man diesem einen Klick auf die (nicht vorhandene) Titelzeile vorgaukeln, wenn der Anwender auf eine beliebige Stelle im Formular klickt. Dazu fügt man folgenden Code in die "OnMouseDown"-Methode des Formulars ein:
if ssLeft in Shift then begin
ReleaseCapture;
Self.Perform(WM_NCLBUTTONDOWN, HTCAPTION, varEmpty);
end;


Danke im Vorraus..
  Mit Zitat antworten Zitat