...eine WinControl Komponente zur Laufzeit verschieben?

GruppeCN · Beiträge: 322

eine WinControl Komponente zur Laufzeit verschieben?

Dieser Code stellt eine Procedure dar, die bei einer WinControl Komponente als onMouseDown Event ausgewählt werden kann. Die Komponente lässt sich dann zur Laufzeit verschieben.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm.KomponenteMouseDown (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;

Moderiert von jasocul: Beitrag geprüft am 22.05.2006

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme