Показать сообщение отдельно
  #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 все нормально.
Ответить с цитированием