VPF::Изменить BorderStyle формы зная только его Handle

Grol

Дата 31.1.2007, 23:59 (ссылка)

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

Загрузка ...

Бывалый

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

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

Привет всем! Вообщем вопрос мой сформулирован в теме. Если я знал бы, как узнать имя формы, то сделал бы например так:

Код


TForm(FindComponent('Form1')).BorderStyle:=bsToolWindow;

....а я знаю только Handle формы. Вообщем подскажите пожалуйста ломастеру smile

Очень буду благодарен за помощь!

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

Живи так, как будто тебе предстоит умереть завтра...Учись так, как будто тебе предстоит жить вечно.........

Snowy

Дата 1.2.2007, 00:22 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код


var
  wp: TWindowPlacement;
begin
  SetWindowLong(Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW); // эт собсна всё
  GetWindowPlacement(Handle, @wp); // дальнейшее нужно для визуального апдейта окна
  wp.rcNormalPosition.Top := wp.rcNormalPosition.Top + 8;
  SetWindowPlacement(Handle, @wp);
end;

Добавлено @ 00:24
P.S. Вместо Handle - хэндл нужного онка. Иначе изменишь свой smile

Grol

Дата 1.2.2007, 00:59 (ссылка)

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

Загрузка ...

Бывалый

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

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

Спасибо Snowy за помощь!

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

Живи так, как будто тебе предстоит умереть завтра...Учись так, как будто тебе предстоит жить вечно.........

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