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

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

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

Автор: Hatigatsu 26.11.2006, 17:26

Здравствуйте. Подскажите, пожалуйста, как взявшись мышью за компонент переместить форму. СпасиБо.

Автор: Matematik 26.11.2006, 17:37

Код


procedure TMailForm.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  panel1.Perform(WM_SYSCOMMAND, $F012, 0);
end;

Автор: Guedda 26.11.2006, 18:24

А можно ли как-нибудь за Memo перетащить? Если можно, то как?

Автор: Alexeis 26.11.2006, 18:40

Guedda,
smile

Код


procedure TMailForm.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  form1.Perform(WM_SYSCOMMAND, $F012, 0);
end;

Автор: Hatigatsu 27.11.2006, 03:10

Matematik, Большое спасиБо.

Автор: Snowy 27.11.2006, 11:55

FAQ: http://vingrad.ru/DELPHI-DLP-000595 smile