Текущий архив: 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.47 MB
Время: 0.037 c