Author
Message
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,