//返回ListBox选中的多项目 procedure TForm1.Button2Click(Sender: TObject);vari:Integer;s:string;beginfor i:=0 to ListBox1.Items.Count-1 doif ListBox1.Selected[...
分类：
其他好文 时间：
2014-07-29 21:25:42
阅读次数：
235
在运行时移动控件 procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);constSC_DragMove = $F012;beginBegi...
分类：
移动开发 时间：
2014-07-29 21:21:02
阅读次数：
234
有问题
//ListBox选中的项目移动到第1位 Listbox1.Items.Move(ListBox1.ItemIndex,0); //ListView选中的项目移动到第1位 procedure TForm1.Button5Click(Sender: TObject);varsel:String...
分类：
其他好文 时间：
2014-07-29 21:19:32
阅读次数：
229
//限制字符的输入{ 只能输入以下字符 }procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin If (Key in ['\', '/', ':', '*', '?', '', '|']) then Key := #...
分类：
其他好文 时间：
2014-07-29 21:17:32
阅读次数：
214
//关闭计算器 procedure TForm1.Button1Click(Sender: TObject); var HWndCalculator: HWnd; begin HWndCalculator := FindWindow(nil, '计算器'); // 查找计算器句柄 if HWndCa...
分类：
其他好文 时间：
2014-07-29 21:11:22
阅读次数：
186
//将edit1中的每个字符串改为首字母大写procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);beginwith Sender as Tedit doif (text = '') or (text[selstart] = '...
分类：
其他好文 时间：
2014-07-29 21:08:12
阅读次数：
202
// 复制图片的一部分procedure TForm1.Button1Click(Sender: TObject);varBitmap: TBitmap;MyRect: TRect;beginMyRect := Rect(10,10,100,100);//定义复制范围Bitmap := TBitma...
分类：
其他好文 时间：
2014-07-29 21:07:42
阅读次数：
196
保存Image1图片 procedure TForm2.Button1Click(Sender: TObject);beginwith TSaveDialog.Create(nil) dobeginFilter:='JPEG file(*.jpg;*.jpeg)|*.jpg;*.jpeg|PNG f...
分类：
其他好文 时间：
2014-07-29 21:07:22
阅读次数：
220
uses ActiveX;
procedure TForm1.BtnNewClick(Sender: TObject);var ID: TGUID; S: string;begin if CoCreateGuid (Id) = s_OK then begin s := GUIDToString (I...
分类：
其他好文 时间：
2014-07-29 21:06:13
阅读次数：
229
捕捉整个桌面的图片 但不捕捉自己这个窗体 procedure TForm2.Button3Click(Sender: TObject);varBitmap: Tbitmap;BitmapCanvas: TCanvas;dc: HDC;DeskTopWidth,DeskTopHeight:Intege...
分类：
其他好文 时间：
2014-07-29 21:03:22
阅读次数：
175
