title image


Smiley So gehts!
Hialso, um ein forumlar zu minimieren musst du die deklaration des formulars um den bereich "protected", gleich unter "private" erweitern!!!in diesen bereich schreibst du dann die deklaration folgender procedure:---------procedure CreateParams(var params: tcreateparams); override;---------nach "implementation" kommt die procedure:---------procedure tform2.CreateParams(var params: tcreateparams);begin inherited; //vererbte methoden aufrufen!!! params.ExStyle := params.ExStyle or WS_EX_APPWINDOW; //formular in der taskleiste anzeigenend;---------dann wird dein formular in der taskleiste angezeigt.alles klar?nun zum verschieben des fensters per bildchen oder so:als erstes musst du drei globale (!!) variablen deklarieren:down: boolean = false; //damit das fenster nur beim klick-->ziehen verschoben wird!MouseX, MouseY: integer; //speichert die position der maus!beim "onMouseDown" event des bildes (oder jeder anderen kompo...) schreibst du folgenden code rein:---------if button = (mbLeft) then //nur wenn mit der linken maustaste geklickt wurde!!! begin down := true; //jetzt möchte ich verschieben mousex := x; //x-coord. des MouseDown's speichern mousey :=y; //y-coord. des MouseDown's speichern end;---------beim "onMouseMove" event des Bildes schreibst du folgenden code rein:---------if down then //nur wenn down true ist begin form1.left := x + form1.left - mousex; //x-pos der form aktualisieren form1.top := y + form1.top - mousey; //y-pos der form aktualisieren end;---------beim "onMouseUp" event des Bildes schreibst du folgenden code rein:---------down := false; //damit das verschieben beim normalen drüberfahren mit der maus ausgeschaltet ist!!!---------jetzt ist es möglich, dein formular zu verschieben, indem du auf das bild klickst, und dann das formular an die entsprechende stelle ziehst...das geht natürlich auch mit panels oder so, oder der form selbst, die hat ja auch diese events!falls was nicht klar ist, schreib mir eine mail!gruss Subrim

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: