Текущий архив: 2007.08.26;
Скачать: CL | DM;
Вниз
Склеить формы. Найти похожие ветки
← →
AMD (2007-08-04 13:22) [0]Здравствуйте!
Есть две формы надо сделать так чтобы когда двигалась одна то за ней двигалась и вторая.Т.е "склеить их" , как в винапе например. Заранее спасибо.
← →
Ping (2007-08-04 13:42) [1]Можно обрабатывать сообщение WM_MOVE:
TForm1 = class(TForm)
private
procedure WMMove(var a_Msg: TWMMove); message WM_MOVE;
end;
procedure TForm1.WMMove(var a_Msg: TWMMove);
begin
if (Form2 <> nil) then
begin
Form2.Left := Left;
Form2.Top := Top + Height;
end;
end;
← →
Eraser © (2007-08-04 14:36) [2]> [0] AMD (04.08.07 13:22)
в JEDI VCL есть компонент такой, посмотри как сделан.
← →
Zagaevskiy © (2007-08-04 20:27) [3]
> винапе
винампе?
← →
Инс © (2007-08-04 20:54) [4]См функции:
BeginDeferWindowPos
DeferWindowPos
EndDeferWindowPos
Страницы: 1 вся ветка
Текущий архив: 2007.08.26;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.036 c
