VPF::убить заголовок окна - Форум программистов

z-END

Дата 27.3.2005, 16:18 (ссылка)

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

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

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

сабж, чего "сказать" чужому окну чтобы у него пропал заголовок (т.е. чтоб окно стало BorderStyle=bsNone) и вообще можно-ли ?

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

Каждый чилавек пасвоему праф...а памоему НЕТ!

Дата 27.3.2005, 16:24 (ссылка)

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

Загрузка ...

Брутальный буратина

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

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

Заголовок это WS_Caption
Добавлено @ 16:33
используй для этого SetWindowLong

z-END

Дата 27.3.2005, 16:35 (ссылка)

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

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

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

RAdmin уже лучше-)

Код


SendMessage (SomeHandle, WS_CAPTION, {а тут чего?},{и тут ?});

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

Каждый чилавек пасвоему праф...а памоему НЕТ!

Дата 27.3.2005, 16:48 (ссылка)

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

Загрузка ...

Брутальный буратина

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

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

Вот кокраз то что тебе нужно:

Код





procedure MakeBsNone;
var
  Style: Longint;
begin

  Style := GetWindowLong(Handle, GWL_STYLE);
  if (Style and WS_CAPTION) = WS_CAPTION then
  begin
    case BorderStyle of
      bsSingle,
      bsSizeable: SetWindowLong(Handle, GWL_STYLE, Style and
          (not (WS_CAPTION)) or WS_BORDER);
      bsDialog: SetWindowLong(Handle, GWL_STYLE, Style and
          (not (WS_CAPTION)) or DS_MODALFRAME or WS_DLGFRAME);
    end;
    Height := Height - GetSystemMetrics(SM_CYCAPTION);
    Refresh;
  end;
end;

z-END

Дата 27.3.2005, 17:06 (ссылка)

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

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

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

RAdmin чето несовсем работает... Handle то не моего окна нужен на чужого.
т.е. BorderStyle мне не нужен. я просто делал:

Код


SetWindowLong (SomeHandle, GWL_STYLE, Style and (not (WS_CAPTION)) or DS_MODALFRAME or WS_DLGFRAME);

но пропадает тока рамка вокруг окна, заголовок остается smile

ЗЫ точнее почти везде нормально, а внекоторых нет (например Диспетчер задач)

Это сообщение отредактировал(а) z-END - 27.3.2005, 17:19

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

Каждый чилавек пасвоему праф...а памоему НЕТ!

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