VPF::Присоеденение форм друг к другу

ShuVaS

Дата 25.1.2005, 16:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 79
Регистрация: 26.12.2004
Где: Севастополь

Репутация: нет
Всего: нет

Ну короче есть несколько форм и надо что бы при сближении на определенном расстоянии она склеивались бы(как в виампе)
а при перемещении главной формы - присоедененная тоже перемещалась за ней (как в том же винапме)...помогите плизз сделать

_hunter

Дата 25.1.2005, 17:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

смотри Docking из Examples

--------------------

Tempora mutantur, et nos mutamur in illis...

ShuVaS

Дата 25.1.2005, 19:44 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 79
Регистрация: 26.12.2004
Где: Севастополь

Репутация: нет
Всего: нет

Код


if Form2.left <= form1.left + form1.Width + 20
then  Form2.Left := form1.left + form1.Width;

вот что я сделал ... токо какой обработчик события переме6щения ?? (то есть я зажал форму за заголовок - тащу ее к главной форме и когда остаеться 20 пикселов до края оня присоеденяеться (без отпускания левой кнопки мыши....))
Смотрите - так же как в винампе нада

Dynamic

Дата 26.1.2005, 04:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 372
Регистрация: 5.7.2004
Где: Салехард

Репутация: 12
Всего: 15

Цитата(ShuVaS @ 25.1.2005, 19:44)

токо какой обработчик события переме6щения

Код


.....................
private
  procedure WMWINDOWPOSCHANGING(var Msg: TWMWINDOWPOSCHANGING); message WM_WINDOWPOSCHANGING;
...............

В параметре Msg.WindowPos будут текущие координаты.

Код


TWindowPos = packed record
  hwnd: HWND; {Identifies the window.}
  hwndInsertAfter: HWND; {Window above this one}
  x: Integer; {Left edge of the window}
  y: Integer; {Right edge of the window}
  cx: Integer; {Window width}
  cy: Integer; {Window height}
  flags: UINT; {Window-positioning options.}
end;

Это сообщение отредактировал(а) Dynamic - 26.1.2005, 04:51

--------------------

Было бы о чем молчать, а уж что сказать – всегда найдется...

ShuVaS

Дата 26.1.2005, 10:00 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 79
Регистрация: 26.12.2004
Где: Севастополь

Репутация: нет
Всего: нет

а мож обьяснить как юзать ?НАпример что бы одна форма присоеденялась к другой на расстоянии 20 пикселов smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »