title image


Smiley Re: Beliebige Komponente auf Formular verschieben ???
zum beispiel so:









procedure TForm1.KompoMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

TWinControl(Sender).perform(WM_LBUTTONUP,0,0);

TWinControl(Sender).Perform(WM_SysCOmmand,SC_MOVE+2,2);

end;















kompo erzeugen

....



kompo.onmousedwon:=KompoMouseDown;





(klappt natuerlich nur mit kompos, die auch ein fensterhandle haben)

musst halt noch ein flag einbauen, sonst wird die kompo jedes mal verschoben. und das soll ja sicher nicht sein. ;o)

//
// C wurde erfunden, damit die baeume der programmierer
// nicht in den himmel wachsen.
//
// frager


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: