When I use PanelA.MouseDown, so panel moves, but when MouseUp not aligned alLeft.
Delphi-Quellcode:
procedure Tmain.PanelAMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
ReleaseCapture ();
SendMessage (PanelA.Handle, $ A1, 2, 0);
end;
procedure Tmain.PanelAMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
???? EndCapture ???
end;