摘要：
//TMainMenu带历史信息的菜单带历史信息的菜单(动态插入Insert)//动态插入菜单项，首先要求创建TMenuItem菜单对象所需组件TMainMenuTOpenDialog//为TMainMenu创建FileOpen(name:Open1)------------Exit(name:Exit1)//main code here;uses ShellApi;public{ Public ... 阅读全文
posted @ 2012-05-31 08:25
XE2011
阅读(143)
评论(0)
推荐(0)
摘要：
//功能说明：TFileStream复制文件ProcedureFileCopy(Constsourcefilename, targetfilename:String);VarS, T: TFileStream;BeginS:=TFileStream.Create( sourcefilename, fmOpenRead );//生成文件流tryT:=TFileStream.Create( targe... 阅读全文
posted @ 2012-05-31 08:25
XE2011
阅读(159)
评论(0)
推荐(0)
摘要：
//取得字符串中指定的字符procedure TForm1.Button1Click(Sender: TObject);varmystr:string;beginmystr:='Delphi7';showmessage(mystr[3]);end;通过 Wiz 发布 阅读全文
posted @ 2012-05-31 08:25
XE2011
阅读(161)
评论(0)
推荐(0)
摘要：
功能说明：取得Enter键procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);beginIF key=#13 thenshowmessage('你按下了Enter键');end;通过 Wiz 发布 阅读全文
posted @ 2012-05-31 08:25
XE2011
阅读(220)
评论(0)
推荐(0)
摘要：
功能说明：使用 “+”号实现多个字符串的连接procedureTForm1.btn1Click(Sender: TObject);varstr1,str2,str3:string;beginstr1:='Hello';str2:='World';str3:=str1+str2 ;ShowMessage( str3 );end;通过 Wiz 发布 阅读全文
posted @ 2012-05-31 08:25
XE2011
阅读(205)
评论(0)
推荐(0)
摘要：
//功能说明：Memo1ContextPopup使Memo Edit原有的右键功能失效 Combox不行.paprocedure TForm1.Memo1ContextPopup(Sender: TObject; MousePos: TPoint;var Handled: Boolean);beginHandled := True;end;//Combox不行通过 Wiz 发布 阅读全文
posted @ 2012-05-31 08:25
XE2011
阅读(264)
评论(0)
推荐(0)
摘要：
write(); //在屏幕上输出字符串writeln();//在屏幕上输出字符串+ #13read;//读取readln;//用于屏幕暂停//----------------------------------------------var i,j :Integer;begintryWriteln('请输入i j的数值');readln(i,j);if i > j thenwriteln('最大... 阅读全文
posted @ 2012-05-31 08:25
XE2011
阅读(203)
评论(0)
推荐(0)
摘要：
功能说明：WM_nclButtonDblClk响应标题栏事件{在private上面写}proceduremy_nclButtonDblClick(varMsg:TWMNCLButtonDblClk);message WM_nclButtonDblClk;procedureTForm1.my_nclButtonDblClick(varMsg: TWMNCLButtonDblClk);beginApp... 阅读全文
posted @ 2012-05-31 08:25
XE2011
阅读(322)
评论(0)
推荐(0)
摘要：
unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,ExtCtrls,StdCtrls; type TForm1=class(TForm) //protected Timer1:TTimer; Button1:TButton; procedureT... 阅读全文
posted @ 2012-05-31 08:23
XE2011
阅读(223)
评论(0)
推荐(0)
摘要：
取消PopupMenu菜单后面自动加了字母：
把PopupMenu的AutoHotKeys属性设置为maManual就可以了
////
procedureTForm1.Del1Click(Sender:TObject); begin ifPopupMenu1.PopupComponent=listbox1thenListBox1.DeleteSelected; if... 阅读全文
posted @ 2012-05-31 08:22
XE2011
阅读(701)
评论(0)
推荐(0)
摘要：
DELPHI--关于ValueListEditor控件(2011-02-22 17:56:30)转载▼标签：it 分类： 工作—编程1.请问在ValueListEditor里，如何知道我选择了哪一行吗？？ 答：用procedure TControlPanel.ParamEditorSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSel... 阅读全文
posted @ 2012-05-31 08:22
XE2011
阅读(1299)
评论(0)
推荐(0)
摘要：
varA:Array[0..10]ofInteger;{定义静态数组} procedureTForm1.Button1Click(Sender:TObject); vari:Integer; begin Memo1.Clear; fori:=Low(A)toHigh(A)do begin Randomize; A[i]:=Rando... 阅读全文
posted @ 2012-05-31 08:22
XE2011
阅读(979)
评论(0)
推荐(0)
摘要：
procedureTForm1.Label1MouseDown(Sender:TObject;Button:TMouseButton; Shift:TShiftState;X,Y:Integer); begin ifbutton=mbleftthen(senderastlabel).BeginDrag(false); end; procedureTForm1.Memo1DragOver(Sende... 阅读全文
posted @ 2012-05-31 08:22
XE2011
阅读(188)
评论(0)
推荐(0)
摘要：
WinAPI: GetWindowText - 获取窗口标题//声明:GetWindowText( hWnd: HWND; {窗口句柄} lpString: PChar; {接收文本的缓冲区的指针} nMaxCount: Integer {指定缓冲区大小, 其中包含NULL字符; 如果文本超出，会被被截断}): Integer; {返回字符个数, 不包括中断的空字符; 如果标题为空或... 阅读全文
posted @ 2012-05-31 08:22
XE2011
阅读(582)
评论(0)
推荐(0)
摘要：
Delphi获取句柄并发送消息查找另外一个窗口的句柄： handle := FindWindow(nil,PChar('窗口的标题'));//查到窗体句柄查找子窗体：childHandle := FindWindowEx(handle,0,'子窗体类','子窗体标题');另外有个枚举子窗体的API，EnumChildWindows(主创体句柄,@回调函数,用户参数);用这个函数需要自己写一个回调的... 阅读全文
posted @ 2012-05-31 08:22
XE2011
阅读(635)
评论(0)
推荐(0)
浙公网安备 33010602011771号