Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by danten,
13. Apr 2013
OK, solved.
if Button = mbLeft then
begin
ReleaseCapture();
sendmessage(TPanel(Sender).Handle, WM_NCLBUTTONDOWN, 2, 0);
Realign;
TPanel(Sender).Align := alLeft;
end;
Thanks all.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by danten,
13. Apr 2013
OK, that's fine.Do I need the OnMouseUp to moving the panel aligned alLeft.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by danten,
13. Apr 2013
When I use PanelA.MouseDown, so panel moves, but when MouseUp not aligned alLeft.
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;
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by danten,
13. Apr 2013
Hi all.
I have a form in it Panel1 and therein PanelA + PanelB + PanelC.
panelA = alLeft, panelB = alLeft, panelC = alLeft.
I need to drag the mouse to change the position of the panel (A, B or C).
Thanks all.