Forum: Multimedia
Delphi
by the_beginner,
15. Dez 2004
hmmm... ich verstehe den quelltext nicht, kann mir den jemand erklären?
procedure TForm1.ControlMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
FDownX := X;
FDownY := Y;
FDragging := True;
TMoveCracker(Sender).MouseCapture := True;
end;
Forum: Multimedia
Delphi
by the_beginner,
15. Dez 2004
hallo leute,
ich muss in meinem programm durch linksklick labels an der geklickten position erstellen, was kein problem ist, aber wenn auf das label geklict wird und die maustaste gedrückt gehalten wird, dann soll man mit der mausbewegung das label verschoben werden, bis man die maustaste loslässt.
das erstelle nper klick läuft schon, das verschieben aber noch nicht so ganz. sobald ich auf...