Форум по программированию Delphi Sources

 



Вернуться   Форум по программированию Delphi Sources > Все о Delphi > Delphi x64
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 17.05.2015, 22:30
Аватар для volod3000
volod3000 volod3000 вне форума
Новичок
 
Регистрация: 25.12.2008
Сообщения: 71
Репутация: 114
По умолчанию windows 8.1 и WM_PAINT

Здравствуйте.

Возник вопрос и ни как не получается его решить
У меня Windows 8.1 x64 + Delphi XE8

Хотел у Form.caption изменить шрифт, но процедуры :

procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT;
procedure WMPaint(var Msg: TWMPaint); message WM_PAINT;
procedure WMACTIVATE(var Message : TWMActivate); message WM_ACTIVATE;
procedure WMSize(var Msg: TWMSIZE); message WM_SIZE;

не работают.

Я, так понимаю windows 8.1 их заглушает, т.е. запросы выполняются, но после
windows делает свою перерисовку. И ничего не получается.

Объясните как правильно сделать, пожалуйста (Замучился уже),
что бы работали: WM_PAINT, WM_ACTIVATE....
Ответить с цитированием
  #2  
Старый 18.05.2015, 13:38
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,026
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Возможно для "обмана оськи" нужно возвращать нулевой результат, напр. Msg = 0 или Message = 0
Ответить с цитированием
  #3  
Старый 19.05.2015, 00:50
Аватар для volod3000
volod3000 volod3000 вне форума
Новичок
 
Регистрация: 25.12.2008
Сообщения: 71
Репутация: 114
По умолчанию

Цитата:
Сообщение от Alegun
Возможно для "обмана оськи" нужно возвращать нулевой результат, напр. Msg = 0 или Message = 0

Вот смотрите если запустить следующий код:

Цитата:
Код:
Type
  TForm1 = class(TForm)
   
  private
    procedure WMNCPaint(var Mes: TWMNCPaint); message WM_NCPAINT;
.....................
.....................
.....................

procedure TForm1.WMNCPaint(var Mes: TWMNCPaint);
  var
  ACanvas: TCanvas;
  begin
  ACanvas := TCanvas.Create;
  try
  ACanvas.Handle := GetWindowDC(Form1.Handle);
  with ACanvas do
  begin
  Brush.Color := clActiveCaption;
  Font.Name := 'Verdana';
  Font.Size := 10;
  Font.Color := clCaptionText;
  Font.Style := [fsBold];
  TextOut(GetSystemMetrics(SM_CYMENU) + GetSystemMetrics(SM_CXBORDER),
  Round((GetSystemMetrics(SM_CYCAPTION) - Abs(Font.Height)) / 2) + 1,
  ' SwissDelphiCenter');
  end;
  finally

  ReleaseDC(Form1.Handle, ACanvas.Handle);
  ACanvas.Free;

  end;
  end;
На windows 8.1 ничего не произойдет, вопрос почему ?
Хотя на меньших версия windows все нормально.
Ответить с цитированием
  #4  
Старый 19.05.2015, 13:04
Аватар для volod3000
volod3000 volod3000 вне форума
Новичок
 
Регистрация: 25.12.2008
Сообщения: 71
Репутация: 114
По умолчанию

Так понимаю вариантов нет ?
Ответить с цитированием
  #5  
Старый 19.05.2015, 20:52
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 7,496
Версия Delphi: 7, XE3, 10.2
Репутация: 49088
По умолчанию

Ну, тебе выше написали, что у Mes надо выставить флаг, что ты сообщение обработал:
Код:
Mes.Result := 1;

PS. Не факт, что поможет. возможно, надо курить МСДН на тему обработки этих сообщений в Win8/8.1/10, может они там все нафиг поменяли (например, теперь рамку окна отрисовывает система, в соотв, сообщения вообще окну не посылаются).
Ответить с цитированием
Ответ



Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 09:17.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources", 2004-2019

ВКонтакте   Facebook   Twitter