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

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

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

Автор: JohnnYKenig 28.10.2007, 00:58

Подскажите пожалуйста как сделать перемещение формы за любой компонент...

Автор: VICTAR 28.10.2007, 06:57

JohnnYKenig, в следующий раз пользуйся поиском

Код


procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const SC_DragMove = $F012; { a magic number }
{©Drkb v.3(2007): www.drkb.ru}
begin
ReleaseCapture;
Form1.perform(WM_SysCommand, SC_DragMove, 0);
end;

Автор: lukas 28.10.2007, 10:52

ХМ это только для WinControl'ов, а для обычных контролов нужно вручную...

Автор: VICTAR 28.10.2007, 16:10

lukas, ты считаешь, что TLabel это WinControl?

Автор: lukas 28.10.2007, 20:43

VICTAR, да не много не понял вопрос smile

... подумал про перемещение самих контролов....

Автор: JohnnYKenig 29.10.2007, 02:43

VICTAR , просто супер, большое спасибо, очень помогло!

Автор: VICTAR 29.10.2007, 03:18

Cобственно не за что, не моя заслуга =)

Автор: СЭНСЭЙ 4.12.2007, 17:55

Да интернет великая вещь. Чисто случайно зашел, прочитал и нашел применение.
Но жалко что кнопка, если на нее поставить этот код,
перемещает форму, но сама кнопка не нажимается ((

Автор: ivan219 4.12.2007, 18:36

Цитата(СЭНСЭЙ @ 4.12.2007, 17:55

)

Но жалко что кнопка, если на нее поставить этот код,перемещает форму, но сама кнопка не нажимается

А зачем на неё ставить поставь на саму форму:

Код


procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const SC_DragMove = $F012;
begin
ReleaseCapture;
Form1.perform(WM_SysCommand, SC_DragMove, 0);
end;

А ещё можно и так сделать:

Код


  public
    { Public declarations }
    Procedure MoveForv(var Msg: TMessage); message WM_NCHItTest;

  end;

.
.

Procedure TForm1.MoveForv(var Msg: TMessage);
begin
  inherited;
  if Msg.Result=1 then Msg.Result:=2;
end;

Автор: СЭНСЭЙ 4.12.2007, 18:59

ну понятно.
А если все таки хочу перетаскивать только за кнопку, и она при этом должна нажиматься?
Пробовал под кнопку подложить лейбу а отработать на ней - не получилось.

Добавлено через 2 минуты и 11 секунд
вставил в код
button1.Click;
и все получилось ))

только графика кнопки не изменилась при нажатии...