Thema: Delphi Form verschieben!!!!

Einzelnen Beitrag anzeigen

maximi

Registriert seit: 9. Jun 2003
217 Beiträge
 
Delphi 7 Personal
 
#1

Form verschieben!!!!

  Alt 18. Okt 2003, 16:54
So, ich habe BorderStyle auf bsnone gesetzt und somit die obere Leiste wech bekommen.Ich hab mir eine Komponente erstellt die dann diese Leiste ersetzen soll.
Ich möchte nun, wenn man auf die oberer Leiste klickt und die Maus bewegt, dass sich das Form verschiebt.
Ich hab angefangen, nur iregndwie klappt das noch nicht so ganz. Kann mir einer helfen??

Delphi-Quellcode:

  if(active_click = true) then
  begin
    Form8.Left := Mouse.CursorPos.X-Form8.Left;
    Form8.Top := Mouse.CursorPos.Y;
  end;
  Mit Zitat antworten Zitat