2009年3月22日
ActionMainMenuBar使用XPColorMap定义颜色
摘要： with XPColorMap1 do begin Color := clSkyBlue; //左边菜单 MenuColor := $FFFFFF; //下拉整个菜单面版 ShadowColor := $CCCCCC; //背景颜色 //下拉边界颜色 FrameTopLeftInner := $FFFFFF; //左上边界颜色 Fr... 阅读全文
posted @ 2009-03-22 23:47 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(875) 评论(0) 推荐(0)
2009年3月20日
PROE_CONFIG
摘要： 关于配置文件选项 为配置文件输入所需的设置，可以预设环境选项和其它全局设置。要设置配置文件选项，使用“选项”对话框（“实用工具”>“选项”）。 本帮助模块含有一个按字母顺序显示每一选项或相关选项组的配置选项列表： ·配置选项名称。 ·相关变量或值。选项的缺省值显示为斜体。 ·简单说明。 accuracy_lower_bound 数值（在1.0e-6和1.0e-4之间） 输入一个... 阅读全文
posted @ 2009-03-20 22:20 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(2801) 评论(0) 推荐(0)
2009年3月14日
delphi中如何统计多行文本文件中相同字符串出现的次数
摘要： { 2002.8.5 Kingron } { Source:Source string } { Sub:Sub string } { Return:Count ... 阅读全文
posted @ 2009-03-14 23:17 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(1558) 评论(0) 推荐(0)
Delphi ChatRoom_Example
摘要： 聊天用户发言分色显示 procedure TForm1.Button3Click(Sender: TObject); begin RichEdit1.SelStart := MaxInt; RichEdit1.SelAttributes.Color := clblue; RichEdit1.Lines.Add(DateTimeToStr(Now)+ '大宝 说: '); RichEdit1.Lin... 阅读全文
posted @ 2009-03-14 23:09 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(295) 评论(0) 推荐(0)
ListBox弹出菜单自动选中
摘要： 加PopupMenu1 Listbox1的PopupMenu属性设为PopupMenu1 procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button=MBRight then begin ... 阅读全文
posted @ 2009-03-14 23:07 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(338) 评论(0) 推荐(0)
自动单击按钮
摘要： Delphi中FindWindow,FindWindowEx,SendMessage妙用: var i,j,k:integer; begin i:=FindWindow(nil,'与 ●┌哒!ňg 聊天中'); //查找主窗口 j:=FindWindowEx(i,0,'#32770',''); k:=FindWindowEx(j,0,'Button'... 阅读全文
posted @ 2009-03-14 23:06 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(298) 评论(0) 推荐(0)
ListView简单排序
摘要： combobox 不是Sorted:=True; 這樣就可以了嗎?? listview : sorttype :=stText 就會自動排序 menu 排序，可暗中用listbox 排序，再更新menu內容 找一下delphi的help "OnColumnClick" 就有example 了 var ColumnToSort: Integer; procedure TForm1.List... 阅读全文
posted @ 2009-03-14 22:50 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(234) 评论(0) 推荐(0)
Delphi使窗口最小化后显示在任务栏上
摘要： 我在代码中写了如下代码：Frm_Main.WindowState:=wsMinimized，可在代码执行后却将窗体"最小化"在桌面上了（任务栏上也有）！另在设计中设置完WindowState的属性为wsMinimized后，在窗体初始化后就可"最小化"在任务栏上，而桌面上没有！ 请各位指教，不胜感激！！！ 对象不同，效果也不同 Application.Minimize; Self.Win... 阅读全文
posted @ 2009-03-14 22:49 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(5706) 评论(1) 推荐(0)
Delphi鼠标左键点击Button弹出快捷菜单Popupmenu
摘要： 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... 阅读全文
posted @ 2009-03-14 22:33 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(1112) 评论(0) 推荐(0)
Delphi屏幕绘图
摘要： 以下代码以光标所在位置为中心,在全屏幕上绘制一个十字架: procedure TForm1.Button1Click(Sender: TObject); var FullscreenCanvas:TCanvas; DC:HDC; begin DC:=GetDC(0);//取得屏幕的DC，参数0指的是屏幕 FullscreenCanvas := TCanvas.Cr... 阅读全文
posted @ 2009-03-14 22:31 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(480) 评论(0) 推荐(0)