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

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

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

Автор: NieL 15.12.2008, 13:16

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

Автор: Alexeis 15.12.2008, 18:03

Код


procedure TForm1.FormCreate(Sender: TObject);
var
  Style: Longint;
begin
 Style := GetWindowLong(Handle, GWL_STYLE);
 SetWindowLong(Handle, GWL_STYLE, Style and (not WS_MINIMIZEBOX) and (not WS_MAXIMIZEBOX) or WS_SIZEBOX);
end;

Иконку можно просто заменить на пустую.

Автор: Bose 15.12.2008, 19:42

NieL, посмотри у формы свойство BorderIcons.