摘要：
//TTrackBar控制Memo1的Left和Widthprocedure TForm1.TrackBar1Change(Sender: TObject);beginMemo1.Left:=Trackbar1.Position+18;Memo1.Width:=W-Memo1.Left;end;procedure TForm1.FormCreate(Sender: TObject);beginw:... 阅读全文
posted @ 2012-05-31 08:25
XE2011
阅读(122)
评论(0)
推荐(0)
摘要：
//TRichEdit_控制TRichEdit组件滚动procedure TForm1.BitBtn1Click(Sender: TObject); //滚至末端 没反应beginwith RichEdit1 dobeginSelStart := Length(Text);Perform(em_scrollcaret, 0, 0);end;end;procedure TForm1.BitBtn3C... 阅读全文
posted @ 2012-05-31 08:25
XE2011
阅读(390)
评论(0)
推荐(0)
摘要：
//TransparentFrm透明窗体透明窗体 控件正常显示{以图片的形状作为窗体形态}{使窗体透明透明的只剩下个控件} //调用setFormTransParent(Form1); proceduresetFormTransParent(Form:TForm); begin Form.BorderStyle:=bsNone; Form.TransparentColor:=True; Form.TransparentColorValue:=20; Form.Color:=Form.TransparentColorValue; end; 通过 为知笔记 发布 阅读全文
posted @ 2012-05-31 08:25
XE2011
阅读(351)
评论(0)
推荐(0)
摘要：
//TMaskEdit组件的简单应用掩码格式可以分为三部分每个部分之间用分号“;”分开。第一部分;第二部分;第三部分第一部分是掩码本身，也就是数据输入格式。在这一部分用一些特殊的格式符来表示应输入的字符类型及格式，常用的特殊格式符有：!去掉输入数据开头的空格符> 让输入数据的字母都变成大写，直到遇上掩码字符<< 让输入数据的字母都变成小写，直到遇上掩码字符><> 不限制输入数据字母是大写或小写\ ... 阅读全文
posted @ 2012-05-31 08:25
XE2011
阅读(260)
评论(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
阅读(143)
评论(0)
推荐(0)
摘要：
功能说明：WM_GETMINMAXINFO限制窗体最大化时的大小_message private{ Private declarations }procedureWMGetMinMaxInfo(varMsg: TWMGetMinMaxInfo);//取得最大化的消息message WM_GETMINMAXINFO;procedureTForm1.WMGetMinMaxInfo(varMsg: TW... 阅读全文
posted @ 2012-05-31 08:25
XE2011
阅读(310)
评论(0)
推荐(0)
摘要：
功能说明：winexec启动控制面板中的程序 procedureTForm1.Button1Click(Sender: TObject);VarX:integer;begin{启动控制面板}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL',9);{辅助选项 属性-键盘}x:=winexec('rundll32.exe shell32.dll,... 阅读全文
posted @ 2012-05-31 08:25
XE2011
阅读(146)
评论(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
阅读(220)
评论(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
阅读(184)
评论(0)
推荐(0)
摘要：
WinAPI: GetWindowText - 获取窗口标题//声明:GetWindowText( hWnd: HWND; {窗口句柄} lpString: PChar; {接收文本的缓冲区的指针} nMaxCount: Integer {指定缓冲区大小, 其中包含NULL字符; 如果文本超出，会被被截断}): Integer; {返回字符个数, 不包括中断的空字符; 如果标题为空或... 阅读全文
posted @ 2012-05-31 08:22
XE2011
阅读(580)
评论(0)
推荐(0)
摘要：
Delphi获取句柄并发送消息查找另外一个窗口的句柄： handle := FindWindow(nil,PChar('窗口的标题'));//查到窗体句柄查找子窗体：childHandle := FindWindowEx(handle,0,'子窗体类','子窗体标题');另外有个枚举子窗体的API，EnumChildWindows(主创体句柄,@回调函数,用户参数);用这个函数需要自己写一个回调的... 阅读全文
posted @ 2012-05-31 08:22
XE2011
阅读(623)
评论(0)
推荐(0)
摘要：
取消PopupMenu菜单后面自动加了字母：
把PopupMenu的AutoHotKeys属性设置为maManual就可以了
////
procedureTForm1.Del1Click(Sender:TObject); begin ifPopupMenu1.PopupComponent=listbox1thenListBox1.DeleteSelected; if... 阅读全文
posted @ 2012-05-31 08:22
XE2011
阅读(685)
评论(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
阅读(1279)
评论(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
阅读(973)
评论(0)
推荐(0)
摘要：
//对汉字无效 unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls; type TForm1=class(TForm) ComboBox1:TComboBox; Bu... 阅读全文
posted @ 2012-05-31 08:21
XE2011
阅读(206)
评论(0)
推荐(0)
浙公网安备 33010602011771号