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