WinAPI:DrawFrameControl绘制控件

//声明:
DrawFrameControl(DC: HDC; {设备环境句柄}const Rect: TRect; {矩形}uType, uState: UINT {控件类型与控件状态}
): BOOL;//控件类型 uType 参数可选值:
DFC_CAPTION &＃61; 1; {标题按钮}
DFC_MENU &＃61; 2; {菜单}
DFC_SCROLL &＃61; 3; {滚动条按钮}
DFC_BUTTON &＃61; 4; {标准按钮}
DFC_POPUPMENU &＃61; 5; {弹出菜单}//控件状态 uState 参数可选值:{针对 DFC_CAPTION}
DFCS_CAPTIONCLOSE &＃61; 0;
DFCS_CAPTIONMIN &＃61; 1;
DFCS_CAPTIONMAX &＃61; 2;
DFCS_CAPTIONRESTORE &＃61; 3;
DFCS_CAPTIONHELP &＃61; 4;{针对 DFC_MENU}
DFCS_MENUARROW &＃61; 0;
DFCS_MENUCHECK &＃61; 1;
DFCS_MENUBULLET &＃61; 2;
DFCS_MENUARROWRIGHT &＃61; 4;{针对 DFC_SCROLL}
DFCS_SCROLLUP &＃61; 0;
DFCS_SCROLLDOWN &＃61; 1;
DFCS_SCROLLLEFT &＃61; 2;
DFCS_SCROLLRIGHT &＃61; 3;
DFCS_SCROLLCOMBOBOX &＃61; 5;
DFCS_SCROLLSIZEGRIP &＃61; 8;
DFCS_SCROLLSIZEGRIPRIGHT &＃61; $10;{针对 DFC_BUTTON}
DFCS_BUTTONCHECK &＃61; 0;
DFCS_BUTTONRADIOIMAGE &＃61; 1;
DFCS_BUTTONRADIOMASK &＃61; 2;
DFCS_BUTTONRADIO &＃61; 4;
DFCS_BUTTON3STATE &＃61; 8;
DFCS_BUTTONPUSH &＃61; $10;{通用状态}
DFCS_INACTIVE &＃61; $100;
DFCS_PUSHED &＃61; $200;
DFCS_CHECKED &＃61; $400;
DFCS_TRANSPARENT &＃61; $800;
DFCS_HOT &＃61; $1000;
DFCS_ADJUSTRECT &＃61; $2000;
DFCS_FLAT &＃61; $4000;
DFCS_MONO &＃61; $8000;//举例:
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;typeTForm1 &＃61; class(TForm)RadioGroup1: TRadioGroup;RadioGroup2: TRadioGroup;RadioGroup3: TRadioGroup;RadioGroup4: TRadioGroup;RadioGroup5: TRadioGroup;RadioGroup6: TRadioGroup;Panel1: TPanel;procedure RadioGroup1Click(Sender: TObject);procedure RadioGroup2Click(Sender: TObject);procedure RadioGroup3Click(Sender: TObject);procedure RadioGroup4Click(Sender: TObject);procedure RadioGroup5Click(Sender: TObject);procedure RadioGroup6Click(Sender: TObject);procedure Draw;end;varForm1: TForm1;implementation{$R *.dfm}varDFC : Integer &＃61; 0;DFCS1: Integer &＃61; 0;DFCS2: Integer &＃61; 0;procedure TForm1.Draw;
beginPanel1.Refresh;DrawFrameControl(GetDC(Panel1.Handle), Rect(10,10,100,50), DFC, DFCS1 or DFCS2);
end;procedure TForm1.RadioGroup1Click(Sender: TObject);
beginPanel1.Refresh;case RadioGroup1.ItemIndex of0: beginDFC :&＃61; DFC_CAPTION;RadioGroup3.Enabled :&＃61; True;RadioGroup4.Enabled :&＃61; False;RadioGroup5.Enabled :&＃61; False;RadioGroup6.Enabled :&＃61; False;end;1: beginDFC :&＃61; DFC_MENU;RadioGroup3.Enabled :&＃61; False;RadioGroup4.Enabled :&＃61; True;RadioGroup5.Enabled :&＃61; False;RadioGroup6.Enabled :&＃61; False;end;2: beginDFC :&＃61; DFC_SCROLL;RadioGroup3.Enabled :&＃61; False;RadioGroup4.Enabled :&＃61; False;RadioGroup5.Enabled :&＃61; True;RadioGroup6.Enabled :&＃61; False;end;3: beginDFC :&＃61; DFC_BUTTON;RadioGroup3.Enabled :&＃61; False;RadioGroup4.Enabled :&＃61; False;RadioGroup5.Enabled :&＃61; False;RadioGroup6.Enabled :&＃61; True;end;4: beginDFC :&＃61; DFC_POPUPMENU;RadioGroup3.Enabled :&＃61; False;RadioGroup4.Enabled :&＃61; True;RadioGroup5.Enabled :&＃61; False;RadioGroup6.Enabled :&＃61; False;end;end;
end;procedure TForm1.RadioGroup2Click(Sender: TObject);
begincase RadioGroup2.ItemIndex of0: DFCS1 :&＃61; DFCS_INACTIVE;1: DFCS1 :&＃61; DFCS_PUSHED;2: DFCS1 :&＃61; DFCS_CHECKED;3: DFCS1 :&＃61; DFCS_TRANSPARENT;4: DFCS1 :&＃61; DFCS_HOT;5: DFCS1 :&＃61; DFCS_ADJUSTRECT;6: DFCS1 :&＃61; DFCS_FLAT;7: DFCS1 :&＃61; DFCS_MONO;end;Draw;
end;procedure TForm1.RadioGroup3Click(Sender: TObject);
begincase RadioGroup3.ItemIndex of0: DFCS2 :&＃61; DFCS_CAPTIONCLOSE;1: DFCS2 :&＃61; DFCS_CAPTIONMIN;2: DFCS2 :&＃61; DFCS_CAPTIONMAX;3: DFCS2 :&＃61; DFCS_CAPTIONRESTORE;4: DFCS2 :&＃61; DFCS_CAPTIONHELP;end;Draw;
end;procedure TForm1.RadioGroup4Click(Sender: TObject);
begincase RadioGroup4.ItemIndex of0: DFCS2 :&＃61; DFCS_MENUARROW;1: DFCS2 :&＃61; DFCS_MENUCHECK;2: DFCS2 :&＃61; DFCS_MENUBULLET;3: DFCS2 :&＃61; DFCS_MENUARROWRIGHT;end;Draw;
end;procedure TForm1.RadioGroup5Click(Sender: TObject);
begincase RadioGroup5.ItemIndex of0: DFCS2 :&＃61; DFCS_SCROLLUP;1: DFCS2 :&＃61; DFCS_SCROLLDOWN;2: DFCS2 :&＃61; DFCS_SCROLLLEFT;3: DFCS2 :&＃61; DFCS_SCROLLRIGHT;4: DFCS2 :&＃61; DFCS_SCROLLCOMBOBOX;5: DFCS2 :&＃61; DFCS_SCROLLSIZEGRIP;6: DFCS2 :&＃61; DFCS_SCROLLSIZEGRIPRIGHT;end;Draw;
end;procedure TForm1.RadioGroup6Click(Sender: TObject);
begincase RadioGroup6.ItemIndex of0: DFCS2 :&＃61; DFCS_BUTTONCHECK;1: DFCS2 :&＃61; DFCS_BUTTONRADIOIMAGE;2: DFCS2 :&＃61; DFCS_BUTTONRADIOMASK;3: DFCS2 :&＃61; DFCS_BUTTONRADIO;4: DFCS2 :&＃61; DFCS_BUTTON3STATE;5: DFCS2 :&＃61; DFCS_BUTTONPUSH;end;Draw;
end;end.//效果图:

---

附上窗体结构代码: object Form1: TForm1 Left &＃61; 0 Top &＃61; 0 Caption &＃61; &＃39;Form1&＃39; ClientHeight &＃61; 386 ClientWidth &＃61; 499 Color &＃61; clBtnFace Font.Charset &＃61; DEFAULT_CHARSET Font.Color &＃61; clWindowText Font.Height &＃61; -11 Font.Name &＃61; &＃39;Tahoma&＃39; Font.Style &＃61; [] OldCreateOrder &＃61; False PixelsPerInch &＃61; 96 TextHeight &＃61; 13 object RadioGroup1: TRadioGroup Left &＃61; 0 Top &＃61; 8 Width &＃61; 137 Height &＃61; 129 Caption &＃61; &＃39;RadioGroup1&＃39; Items.Strings &＃61; ( &＃39;DFC_CAPTION &＃39; &＃39;DFC_MENU &＃39; &＃39;DFC_SCROLL &＃39; &＃39;DFC_BUTTON &＃39; &＃39;DFC_POPUPMENU &＃39;) TabOrder &＃61; 0 OnClick &＃61; RadioGroup1Click end object RadioGroup2: TRadioGroup Left &＃61; 0 Top &＃61; 143 Width &＃61; 137 Height &＃61; 170 Caption &＃61; &＃39;RadioGroup2&＃39; Items.Strings &＃61; ( &＃39;DFCS_INACTIVE&＃39; &＃39;DFCS_PUSHED&＃39; &＃39;DFCS_CHECKED&＃39; &＃39;DFCS_TRANSPARENT&＃39; &＃39;DFCS_HOT&＃39; &＃39;DFCS_ADJUSTRECT&＃39; &＃39;DFCS_FLAT&＃39; &＃39;DFCS_MONO&＃39;) TabOrder &＃61; 1 OnClick &＃61; RadioGroup2Click end object RadioGroup3: TRadioGroup Left &＃61; 143 Top &＃61; 8 Width &＃61; 178 Height &＃61; 129 Caption &＃61; &＃39;RadioGroup3&＃39; Items.Strings &＃61; ( &＃39;DFCS_CAPTIONCLOSE &＃39; &＃39;DFCS_CAPTIONMIN&＃39; &＃39;DFCS_CAPTIONMAX&＃39; &＃39;DFCS_CAPTIONRESTORE&＃39; &＃39;DFCS_CAPTIONHELP&＃39;) TabOrder &＃61; 2 OnClick &＃61; RadioGroup3Click end object RadioGroup4: TRadioGroup Left &＃61; 327 Top &＃61; 8 Width &＃61; 170 Height &＃61; 129 Caption &＃61; &＃39;RadioGroup4&＃39; Items.Strings &＃61; ( &＃39;DFCS_MENUARROW&＃39; &＃39;DFCS_MENUCHECK&＃39; &＃39;DFCS_MENUBULLET&＃39; &＃39;DFCS_MENUARROWRIGHT&＃39;) TabOrder &＃61; 3 OnClick &＃61; RadioGroup4Click end object RadioGroup5: TRadioGroup Left &＃61; 143 Top &＃61; 143 Width &＃61; 178 Height &＃61; 170 Caption &＃61; &＃39;RadioGroup5&＃39; Items.Strings &＃61; ( &＃39;DFCS_SCROLLUP&＃39; &＃39;DFCS_SCROLLDOWN&＃39; &＃39;DFCS_SCROLLLEFT&＃39; &＃39;DFCS_SCROLLRIGHT&＃39; &＃39;DFCS_SCROLLCOMBOBOX&＃39; &＃39;DFCS_SCROLLSIZEGRIP&＃39; &＃39;DFCS_SCROLLSIZEGRIPRIGHT&＃39;) TabOrder &＃61; 4 OnClick &＃61; RadioGroup5Click end object RadioGroup6: TRadioGroup Left &＃61; 327 Top &＃61; 143 Width &＃61; 170 Height &＃61; 170 Caption &＃61; &＃39;RadioGroup6&＃39; Items.Strings &＃61; ( &＃39;DFCS_BUTTONCHECK&＃39; &＃39;DFCS_BUTTONRADIOIMAGE&＃39; &＃39;DFCS_BUTTONRADIOMASK&＃39; &＃39;DFCS_BUTTONRADIO&＃39; &＃39;DFCS_BUTTON3STATE&＃39; &＃39;DFCS_BUTTONPUSH&＃39;) TabOrder &＃61; 5 OnClick &＃61; RadioGroup6Click end object Panel1: TPanel Left &＃61; 0 Top &＃61; 319 Width &＃61; 499 Height &＃61; 67 Align &＃61; alBottom Caption &＃61; &＃39;Panel1&＃39; TabOrder &＃61; 6 end end

---