Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Изменить BorderStyle формы зная только его Handle

Автор: Grol 31.1.2007, 23:59

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

Код


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

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

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

Автор: Snowy 1.2.2007, 00:22

Код


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

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