Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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
14-1119638837
NightStranger
2005-06-24 22:47
2005.07.18
Оцените дизайн сайта


14-1119347931
wHammer
2005-06-21 13:58
2005.07.18
Помогите найти старую библиотеку компонент ABC для D6


3-1118319732
Андрей_СК
2005-06-09 16:22
2005.07.18
Сравнение структуры двух таблиц


11-1102698214
uuzh
2004-12-10 20:03
2005.07.18
2 ECM: Насколько реально перепилить KOLIB под Kylix3 ?


14-1119356757
Empleado
2005-06-21 16:25
2005.07.18
Art