摘要:
procedure SysMenuCommand(var Msg:TWMMENUSELECT);message WM_SYSCOMMAND;procedure TFormMain.SysMenuCommand(var Msg: TWMMenuSelect);begin case Msg.IDItem of 0: begin MessageBox(0,PChar('茶杯'),'操作提示',MB_OK+MB_ICONINFORMATION); end; 1: begin MessageBox(0,PChar('书本'),'操作提示', 阅读全文
摘要:
BorderColor:TColor; //边框颜色 FillColor:TColor; //未选中填充颜色 TextColor:TColor; //未选中字体颜色 SelectTextColor:TColor; //选中字体颜色 SelectFillColor:TColor; //选中填充颜色 SideBuffer:Integer; //边框宽度procedure TForm1.FormCreate(Sender: TObject);begin BorderColor:=clRed; FillColor:=clWhite; TextColor:=clBlue;... 阅读全文