Цитата:
|
Сообщение от Asinkrit
Самый простой и быстрый способ)
Код:
1 2 3 4 5 6 7 8 | procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
const
SC_DRAGMOVE = $F012;
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;
|
|
Спасибо, этот способ наиболее подходящий. Я просто поставил в TForm1.FormMouseMove и все стало так как я хотел... Спасибо.
26.10.2010, 08:59
Древовидный вид