вот нашел не много другое ))
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
const SC_DRAGMOVE = $F012;begin ReleaseCapture;
Form1.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;
думаю это легче )) но все равно спасибо
а вот с компанентом не могбы помочь, как сделать что бы сразу сварачивалось в трей а форма оставалась на рабочем столе
|