[HellBaron]

Доброго всем!

В Delphi XE есть свойство формы Glass Frame, так вот есть несколько вопросов:



1. Есть форма (BorderStyle = msNone) с помощью кода ниже убрал заголовок окна, но оставил только рамку. Добавил на форму TPanel (Align = alTop).
Нужно сделать так, чтобы именно эта панель была "стеклянной", как, например, представить, что кнопки навигации, адресная строка и строка поиска находят на одной панели.

Код:

procedure TMainForm.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle or WS_EX_STATICEDGE;
  Params.Style := Params.Style or WS_SIZEBOX;
end;

Если выставить свойство GlassFrame.Enabled = True и GlassFrame.Top = высота панели, то панелька просто перекроется стеклом.

2. Как выровнять текст заголовока обычного окна по середине, не используюя неадекватные методы типа пробелов?

Заранее спасибо.

[Freeman]

Сообщение от HellBaron

2. Как выровнять текст заголовока обычного окна по середине, не используюя неадекватные методы типа пробелов?

Мне кажется, что Windows адекватно относит выравнивание заголовков окон к компетенции дизайна GUI, а не самодурства программистов.