Hallo Gemeinde,
ich habe gerade garkeine rechte Idee wie ich folgendes realsiere -- und hoffe auf eure Kommentare:
Ich erzuege in meiner Klasse ein SpeedButton und stelle ihn auf einem Panel dar. Wenn ich nun mit der Maus auf diesen Button klicke und die Maus versetze wird der Button an die neuen Maus Position versetzt. Soweit prima.
Ich möchte aber nun, dass der Button
während des Versetzens auch dargestellt wird -- wie gehe ich das an?
Wenn die Maus-Taste losgelassen wird (BtnMouseUp) stelle ich den Button so an der neuen Position dar:
Delphi-Quellcode:
PROCEDURE TMyClass.BtnMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
BEGIN
( SENDER AS TSpeedButton ).Left := ( SENDER AS TSpeedButton ).Left + X; // nur horizontal Verstzen erlaubt
...
Ich vermute ich müßte jetzt in dem MouseMove-Event den Button darstellen -- bis die Taste losgelassen wird. Habe keine rechte Idee, wie ich dies tun kann:
Delphi-Quellcode:
PROCEDURE TMyClass.MouseMove(ShIFt: TShIFtState; X, Y: INTEGER);
BEGIN
// ???
END;
Jemand eine Idee?
Danke & Gruß
Jazzman