Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Delphi Перемещение формы

Автор: proger 13.10.2004, 09:31

Помогите сделать перемещение формы, надо сделать так, чтобы при зажатие левой клавишы мыше на TImage на моей форме, форма перемещялась за курсором т.е. перемещялась как обычно!

Автор: Fedor 13.10.2004, 10:40

Посмотри drkb. Там хорошо написано

Автор: <Spawn> 13.10.2004, 11:40

Попробуй так:

Код

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    ReleaseCapture();
    Perform(WM_NCLBUTTONDOWN, HTCAPTION, 0);
end;