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

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

Форум программистов > Delphi: Для новичков > Перемешение формы

Автор: z01b 2.11.2007, 12:09

У меня есть форма Form1 с BorderStyle:=bsNone
Как сделать так, чтоб я мышкой мог её перемещать по экрану, с место на место?

Автор: Alexeis 2.11.2007, 12:21

Используйте поиск
http://forum.vingrad.ru/faq/topic-156043.html

Автор: z01b 2.11.2007, 12:37

Дело в том что у меня форма, состоит из множество рисунков и когда я ставлю этот код, то событья Image.onClick не работает (

Автор: Alix 2.11.2007, 12:46

Alexeis, этот способ действительно ужасен.
Можно еще так, но думаю что и этот вариант в FAQ или DRKB тоже есть

Код

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
  SC_DRAGMOVE = $F012;

begin
   if (Button = mbLeft) then
   begin
     ReleaseCapture;
     (Self as TControl).Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
   end;
end;

Автор: z01b 2.11.2007, 12:55

Спс Alexis, этот способ действительно помог )

Автор: Alexeis 2.11.2007, 12:56

Alix, конечно есть smile

. Я взял просто первую попавшуюся ссылку. Вопрос сильно избит.

Автор: Alix 2.11.2007, 13:00

Sorry за офтоп, но может имеет смысл в первом этом способе добавить линк а-ля "тут второй способ, но лучше"?