Доброго всем!
В 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. Как выровнять текст заголовока обычного окна по середине, не используюя неадекватные методы типа пробелов?
Заранее спасибо.