摘要：
{ 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... 阅读全文
摘要：
函数由一句或多句代码组成，可以实现某个特定的功能。使用函数可以使代码更加易读、易懂，加快编程速度及减少重复代码。过程与函数类似，过程与函数最重要的区别在于，过程没有返回值，而函数能有返回值。 在Delphi 7.0中，已为我们定义好了非常多的函数，大致分类有6种：数据类型转换函数、字符串、数组操作函数、文... 阅读全文
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; p... 阅读全文
摘要：
//删除目录： function DelDirectory(const Source:string): boolean; var fo: TSHFILEOPSTRUCT; begin FillChar(fo, SizeOf(fo), 0); with fo do begin Wnd := 0; wFunc := FO_DELETE; pFrom := PChar(sourc... 阅读全文
摘要：
Delphi中用WebBrowser控件如何处理浏览网页时发生的当前页脚本错误，是否继续在该页面上运行该脚本问题 这个错误提示是个弹窗，如何在一弹出时就程序自动关闭这个弹窗 解决：将webbrowser控件的silent属性设置为true 阅读全文