摘要：
with XPColorMap1 do begin Color := clSkyBlue; //左边菜单 MenuColor := $FFFFFF; //下拉整个菜单面版 ShadowColor := $CCCCCC; //背景颜色 //下拉边界颜色 FrameTopLeftInner := $FFFFFF; //左上边界颜色 Fr... 阅读全文
摘要：
关于配置文件选项 为配置文件输入所需的设置，可以预设环境选项和其它全局设置。要设置配置文件选项，使用“选项”对话框（“实用工具”>“选项”）。 本帮助模块含有一个按字母顺序显示每一选项或相关选项组的配置选项列表： ·配置选项名称。 ·相关变量或值。选项的缺省值显示为斜体。 ·简单说明。 accuracy_lower_bound 数值（在1.0e-6和1.0e-4之间） 输入一个... 阅读全文
摘要：
{ 2002.8.5 Kingron } { Source:Source string } { Sub:Sub string } { Return:Count ... 阅读全文
摘要：
聊天用户发言分色显示 procedure TForm1.Button3Click(Sender: TObject); begin RichEdit1.SelStart := MaxInt; RichEdit1.SelAttributes.Color := clblue; RichEdit1.Lines.Add(DateTimeToStr(Now)+ '大宝 说: '); RichEdit1.Lin... 阅读全文
摘要：
加PopupMenu1 Listbox1的PopupMenu属性设为PopupMenu1 procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button=MBRight then begin ... 阅读全文
摘要：
Delphi中FindWindow,FindWindowEx,SendMessage妙用: var i,j,k:integer; begin i:=FindWindow(nil,'与 ●┌哒!ňg 聊天中'); //查找主窗口 j:=FindWindowEx(i,0,'#32770',''); k:=FindWindowEx(j,0,'Button'... 阅读全文
摘要：
combobox 不是Sorted:=True; 這樣就可以了嗎?? listview : sorttype :=stText 就會自動排序 menu 排序，可暗中用listbox 排序，再更新menu內容 找一下delphi的help "OnColumnClick" 就有example 了 var ColumnToSort: Integer; procedure TForm1.List... 阅读全文
摘要：
我在代码中写了如下代码：Frm_Main.WindowState:=wsMinimized，可在代码执行后却将窗体"最小化"在桌面上了（任务栏上也有）！另在设计中设置完WindowState的属性为wsMinimized后，在窗体初始化后就可"最小化"在任务栏上，而桌面上没有！ 请各位指教，不胜感激！！！ 对象不同，效果也不同 Application.Minimize; Self.Win... 阅读全文
摘要：
procedure TForm1.SpeedButton4Click(Sender: TObject); begin PopupMenu2.Popup(Mouse.CursorPos.X-30,Mouse.CursorPos.Y+12); end; 在光标所在位置弹出菜单; procedure TForm1.Label1Click(Sender: TObject); var Point: TP... 阅读全文
摘要：
以下代码以光标所在位置为中心,在全屏幕上绘制一个十字架: procedure TForm1.Button1Click(Sender: TObject); var FullscreenCanvas:TCanvas; DC:HDC; begin DC:=GetDC(0);//取得屏幕的DC，参数0指的是屏幕 FullscreenCanvas := TCanvas.Cr... 阅读全文