DrawFrameControl и Windows XP

← →
Ученик (2002-07-25 17:46) [0]

Может быть кто-нибудь в курсе, почему вызов DrawFrameControl меняет вид заголовка окна в Windows XP, т.е если не вызывать DrawFrameControl заголовок XP-ный, вызвал меняется на обыкновенный.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
procedure WMNCPaint(var Message : TWMNCPaint); message WM_NCPAINT;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMNCPaint(var Message : TWMNCPaint);
var
DC : HDC;
R : TRect;
begin
inherited;
R := Rect(100, 6, 116, 22);
DC := GetWindowDC(Handle);
if DC <> 0 then try
DrawFrameControl(DC, R, DFC_CAPTION, DFCS_CAPTIONHELP)
finally
ReleaseDC(Handle, DC)
end
end;

← →
Ученик (2002-07-31 15:45) [1]

Проблема еще не решена

DrawFrameControl и Windows XP Найти похожие ветки