1 2 3 4 5 6 7 8 9 10 11 12 13
| procedure TFrmTest.PanelSplitHorizontalMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
SendMessage(PanelSplitHorizontal.handle, WM_LButtonUp, 0, 0);
SendMessage(PanelTop.handle, WM_NCLButtonDown, HTBOTTOM, 0);
end;
procedure TFrmTest.PanelSplitVerticalMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
SendMessage(PanelSplitVertical.handle, WM_LButtonUp, 0, 0);
SendMessage(PanelLeft.handle, WM_NCLButtonDown, HTRight, 0);
end; |
Partager