VPF::Заголовок формы по середине - Форум программистов

IDontBelieveInSilence

Дата 18.11.2006, 12:06 (ссылка)

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

Загрузка ...

Шустрый

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

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

Мне нужно чтобы название формы, например "Form1" было по середине, а не слева. Как это сделать?

Nicholas_S

Дата 18.11.2006, 12:20 (ссылка)

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

Загрузка ...

Опытный

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

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

http://forum.vingrad.ru/index.php?act=modu...amp;article=483

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

...все в мире относительно

Snowy

Дата 18.11.2006, 12:34 (ссылка)

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

Загрузка ...

Эксперт

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

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

FAQ: http://vingrad.ru/DELPHI-DLP-000483

Guedda

Дата 18.11.2006, 12:37 (ссылка)

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

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

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

Модератор: Сообщение скрыто.

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

Ll 2

CIBRAIKER

Дата 18.11.2006, 12:40 (ссылка)

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

Загрузка ...

Бывалый

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

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

Выбираешь в инспекторе объектов свою форму или "Form1", потом свойство Caption где прописывается название формы, жмёшь на кнопку с многоточием: выпадает окно с названием твоей формы, далее ставишь курсор в начало строки и зажимаешь пробел до тех пор пока название не станет примерно по центру, потом делаешь Run и смотришь результат, если не устаивает, выравниваешь снова. smile

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

Что такое майонез - это драйвер для борьща!

Snowy

Дата 18.11.2006, 14:49 (ссылка)

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

Загрузка ...

Эксперт

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

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

CIBRAIKER, а вот так как раз не грамотно.

Sunvas

Дата 18.11.2006, 17:59 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Я решил несколько упростить автору задачу.

Код


procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT;
{....}
procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);
var
  ACanvas: TCanvas;
begin
  inherited;
  ACanvas := TCanvas.Create;
  try
    ACanvas.Handle := GetWindowDC(Form1.Handle);
    with ACanvas do
    begin
      Brush.Style:=bsClear;
      Font.Name := 'Tahoma';
      Font.Size := 8;
      Font.Color := clwhite;
      Font.Style := [fsBold];
      TextOut(GetSystemMetrics(SM_CYMENU) + GetSystemMetrics(SM_CXBORDER)+round(self.Width/3), //тут поиграшься с выравниванием по центру
        Round((GetSystemMetrics(SM_CYCAPTION) - Abs(Font.Height)) / 2) +1,
          ' Заголовок формы');
    end;
  finally
    ReleaseDC(Form1.Handle, ACanvas.Handle);
    ACanvas.Free;
  end;
end;

Заголовок формы ставишь пустым.

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

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