Entwickler-Ecke

Visual Component Library (VCL) - ...eine WinControl Komponente zur Laufzeit verschieben?


GruppeCN - Do 22.05.03 16:09
Titel: ...eine WinControl Komponente zur Laufzeit verschieben?
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.


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 user profile iconjasocul: Beitrag geprüft am 22.05.2006


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!