[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]

Since I installed IE4, some of my mails are sometime removed without a =
warning. Anybody knows why?. May be I just miss a simple setup.  =20

Here is the code to use to drag a component on a form at run-time.=20

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
  SC_DragMove =$F012; // what a number
begin
  ReleaseCapture; // See Win32 API help
  Button1.perform(WM_SysCommand, SC_DragMove, 0);
end.

[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]