Eine eigenen Komponente auf Knopfdruck bewegen

René R.Fo. · Beiträge: 116 Win7 Delphi5 Delphi2005

Kurze Frage:Wie muss ich denn Code umschreiben damit ich mit einer Booland Funktion einen eigenen Button bewegen kann?:

Delphi-Quelltext

1:
2:
3:
4:

begin 
  ReleaseCapture; 
  Perform(wm_syscommand,$f012, 0); 
end;

Ich habe Delphi5

_________________
If Promille or Cannabis.Volumen > IQ then
dec(Gehirnzellen.Anzahl);

René R.Fo. · Beiträge: 116 Win7 Delphi5 Delphi2005

Kennt keiner eine Antwort?
oder geht das nicht?

jaenicke · Verfasst: So 20.12.09 15:15

Klar geht das, du musst nur das Perform des Buttons nehmen...

markieren

Delphi-Quelltext

1:
2:
3:

btnXY.Perform...
// bzw.
(Sender as TControl).Perform...

Was du gemacht hast, ist ja das Perform des Formulars zu nehmen, und dieses lässt sich so nicht bewegen.

Ich würde es aber nicht mit solchen "magischen" Werten im Quelltext machen. Woher weißt du dann später was das $f012 ist, wenn du in den Quelltext schaust?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

const
  SC_DRAGMOVE = $F012;
begin
  ReleaseCapture;
  (Sender as TControl).Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);

// EDIT:
Nebenbei: es gibt da noch einige Möglichkeiten mehr, auch resizing und so:
thinksharp.org/how-t...zing-of-any-control/

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme