AuthorMessage
Meka][Meka
Unstopable
Posts: 700

a nifty way of doing ( thread name )
Code:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(Self.Handle, WM_SYSCOMMAND, $F012, 0);
end;

just something using for latest project, might come in handy for one of u fine delphi proggers ;)
njoy,