Presúvanie okna myšou

Tento celok príkazov zabezpečí, aby ste mohli myšou puhybivat okno po ploche, ak máte schovanú hlavnú lištu okna. Je to ideálne, ak chcete mať napríklad vlastný skin aj lišty a tým pádom aj vlastné tlačítka na nej a pod.

Kód:

 
 
//zachovanie pozicie, odkial sa okno presuvalo a kde bolo presne 
kliknute mysou
var locx,locy:integer; 
 
// pohyb mysou
procedure MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); 
var p:tpoint;
 begin
  if (shift = [ssLeft]) then // ak drzim lave tlacitko
   begin
    getcursorpos(p);
    self.left:=p.x-locx; // presun okna na poziciu aktualnu
    self.top:=p.y-locy;
   end;
end;
 
// pri kliknuti mysi na objekt sa zachovavaju suradnice kliknutia
procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: 
TShiftState; X, Y: Integer);
 begin
  locx:=x+n; //n je vzdialenost komponenty od laveho okraja formu
  locy:=y+m; //m je vzdialenost komponenty od horneho okraja formu
end;

in-page-blade(geshi-syntax-highlighter)