[volod3000]

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

Возник вопрос и ни как не получается его решить
У меня 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....

[Alegun]

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

[volod3000]

Сообщение от 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 все нормально.

[volod3000]

Так понимаю вариантов нет ?

[lmikle]

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

Код:

Mes.Result := 1;

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