Текущий архив: 2005.07.18;
Скачать: CL | DM;
Вниз
Прикрепление одной формы к другой Найти похожие ветки
← →
Андрей_СК (2005-06-30 12:09) [0]Здравствуйте, уважаемые мастера!!!Помогите пожалуйста. Не получается сделать вот такую штуку: после нажатия кнопки на главной форме появляется вторая форма под главной - это ясно как день, вопрос в другом - как при перетаскивании главной формы по экрану, вторая форма прикреплялась к главной и тянулась за ней, как в Winamp"e перетаскивается Winamp Playlist при перемещении по экрану.
← →
Игорь Шевченко © (2005-06-30 12:11) [1]обрабатывать WM_WINDOWPOSCHANGING не поможет ?
← →
Kolan © (2005-06-30 12:20) [2]Поищи в нете. Там полно на разных сайтах. Если ненайдёшь вечером скину пример...
← →
Чапаев © (2005-06-30 12:43) [3]Посмотри исходники JEDI VCL. Там есть компонентик Magneto Form...
← →
Андрей_СК (2005-06-30 12:44) [4]Спасибо Вам!!! Разбираюсь с WM_WINDOWPOSCHANGING.
← →
Игорь Шевченко © (2005-06-30 13:00) [5]Еще так можно:
unit main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TfMain = class(TForm)
private
procedure WMMove (var Message: TWmMove);
message WM_MOVE;
procedure UpdateChildPos;
end;
var
fMain: TfMain;
implementation
uses
Child;
{$R *.DFM}
{ TfMain }
procedure TfMain.UpdateChildPos;
begin
if Assigned(fChild) then begin
fChild.Left := Left;
fChild.Top := Top + Height;
end;
end;
procedure TfMain.WMMove(var Message: TWmMove);
begin
inherited;
UpdateChildPos;
end;
end.
Страницы: 1 вся ветка
Текущий архив: 2005.07.18;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.033 c
