VPF::Перетаскивание панели за пределы формы

Alexeis

Дата 12.5.2006, 10:37 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Yanis, какая винда smile

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Yanis

Дата 12.5.2006, 10:39 (ссылка)

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

Загрузка ...

Эксперт

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

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

Win XP sp2

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

*щёлк*

Snowy

Дата 12.5.2006, 10:39 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Ага. Нашел. Если отключить стили - заголовок остается.
Щас посмотрим...

Добавлено @ 10:49
Без стилей нужно ресайзнуть маленько, чтобы эффект сработал.

Код


procedure TForm1.PanelkaEndDock(Sender, Target: TObject; X, Y: Integer);
var wnd: HWND;
begin
  wnd := GetParent(Panelka.Handle);
  if wnd = Handle then Exit;
  SetWindowLong(wnd, GWL_STYLE, GetWindowLong(wnd, GWL_STYLE) and not WS_CAPTION);
  Panelka.Parent.Width := Panelka.Parent.Width + 1;
end;

Добавлено @ 10:50
Можно и более аккуратно сделать, просто этот способ самый короткий.

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