Delphi 从剪贴板中读取图片

Delphi 7.0 提取字符串中指定子字符串后的字符串，这个平时在字符处理时候使用几率也挺高的，获取指定字符串后面的字符串，比如获取扩展名等也可以用此方法，本例中要用到After函数，测试时，当单击按钮时，执行以下代码： 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 Edit3.Text := After(Edit2.Text,Edit1.Text); 　　end; 　　end.

Delphi 替换一个键盘按钮，将数字1改为a。将键盘所代表的键位重新定义并判断，得到一个不同的键位值。

Delphi获取内存的使用状态并显示信息，这里是使用GlobalMemoryStatus来实现，有的是使用GetSystemInfo来获龋本程序可显示内存大小和可用内存，并显示进度条。不过我这台电脑是16G内存的Windows7 64位系统，程序可能没认出啊，下面是识别内存可用量的大小，仅供参考： 　　memo_status.dwLength := sizeof(memo_status); 　　GlobalMemoryStatus(memo_status); 　　Gauge2.Progress := (round((100*(memo_status.dwAvailPhys 　　 / memo_status.dwTotalPhys)))); 　　label1.Caption := inttostr(memo_status.dwAvailPhys); 　　label2.Caption := inttostr(memo_status.dwTotalPhys);

Delphi在TListView中显示数据库，ListView控件的简单用法，在日常的编程开发中，这个比较常用 。 　　self.ListView1.ViewStyle:=vsReport; 　　for i:=0 to Query1.FieldCount-1 do 　　begin 　　 TempColumn:=self.ListView1.Columns.Add; 　　 TempColumn.Caption:=Query1.Fields[i].FieldName; 　　end; 　　Query1.First; 　　while not Query1.Eof do 　　begin 　　 TempItem:=self.ListView1.Items.Add; 　　 TempItem.Caption:=Query1.Fields[0].AsString; 　　 for i:=1 to Query1.FieldCount-1 do 　　 begin 　　 TempItem.SubItems.Add(Query1.Fields[i].AsString); 　　 end; 　　 Query1.Next; 　　end;

Delphi 从剪贴板中读取图片，Windows剪帖板相信大家都知道吧，这个程序可查看剪贴板中的图像，将图片另保存，可看作是一个查看剪贴板中图片的一个例子。 　　implementation 　　{$R *.dfm} 　　procedure TForm1.BitBtn1Click(Sender: TObject); 　　begin 　　 Clipboard().Assign(Image1.Picture.Bitmap); 　　end; 　　procedure TForm1.BitBtn2Click(Sender: TObject); 　　begin 　　 if Clipboard().HasFormat(CF_BITMAP) then 　　 Image2.Picture.Bitmap.Assign(Clipboard()); 　　end; 　　procedure TForm1.BitBtn3Click(Sender: TObject); 　　begin 　　 Image2.picture := nil; 　　end; 　　end.

Delphi 控制键盘指示灯，控制键盘灯打开或关闭。就像大小写切换时候，小键盘上面的灯会亮起、关闭，比较简单的一个小功能，适合入门学者参考学习。

Delphi 获得汉字区位码的源码，输入指定汉字，将得到这些汉字的区位码，关键代码请参考以下的源码： 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 str:string; 　　 hi,lo:integer; 　　begin 　　 str:=trim(edit2.Text); 　　 hi:=byte(str[1])-$a0; 　　 lo:=byte(str[2])-$a0; 　　 edit1.Text:=inttostr(hi)+inttostr(lo); 　　end;

这是一个Delphi色彩控制方面的示例，我看上去更像是Delphi分离出红绿颜色通道，从页形成的一种立体效果，复制和修改颜色模式来实现，相关代码可参考如下： 　　 //设置添充颜色的大小 　　 DBitmap.Width := LBitmap.Width; 　　 DBitmap.Height := LBitmap.Height; 　　 vRect := Rect(0, 0, DBitmap.Width, DBitmap.Height); //获取添充区域 　　 DBitmap.Canvas.Brush.Color := vGreen; //设置画笔颜色 　　 DBitmap.Canvas.FillRect(vRect); //添充颜色 　　 LBitmap.Canvas.CopyMode := cmSrcPaint; //将复制模式改为OR 　　 LBitmap.Canvas.CopyRect(vRect, DBitmap.Canvas, vRect); //对图片进行复制 　　 DBitmap.Canvas.Brush.Color := vRed; 　　 DBitmap.Canvas.FillRect(vRect); 　　 RBitmap.Canvas.CopyMode := cmSrcPaint; //将复制模式改为OR 　　 RBitmap.Canvas.CopyRect(vRect, DBitmap.Canvas, vRect); //对图片进行复制 　　 DBitmap.Canvas.CopyRect(vRect, LBitmap.Canvas, vRect); 　　 DBitmap.Canvas.CopyMode := cmSrcAnd; //将复制模式改为AND 　　 DBitmap.Canvas.CopyRect(vRect, RBitmap.Canvas, vRect); 　　 except 　　 Exit; 　　 end; 　　 Result := True; 　　end;

Delphi 当鼠标和键盘在一定时间没有动作时关闭程序，这是一个智能化程序，类似于屏保，当一定时间没有操作时，会关闭软件，运行的技术也不很高深，有兴趣的可下载源代码研究学习。

Delphi 如何定义自已的鼠标单击事件，本程序定义了监测鼠标中轮的事件，当用户按下鼠标中轮时，将监测到运作类型，并弹出窗口返回结果。