Delphi获取和设置汉字输入法

Delphi7.0实现超级连接效果，在窗体上显示超级链接，这个似乎比较简单了，在网页上这是基本的功能，不过如何把一个超链接显示在窗口中，和网页上有些区别，通过这个例子你将学会如何在窗体上实现链接的显示，以及多种链接状态的自定义功能。

Delphi 单击StringGrid列进行排序，StringGrid行的任意列单击，就会重新排序一次，排序规则可以自己定义，这种排序功能可有效提升StringGrid显示数据的易用性，增强其功能，提升用户体验，本例子源代码相当简单，对学习者也有很好的帮助作用。参见以下代码： 　　begin 　　 if Button = mbRight then Exit; 　　 TStringGrid(Sender).MouseToCell(X, Y, vCol, vRow); 　　 if (vRow < 0) or (vRow >= TStringGrid(Sender).FixedRows) then Exit; 　　 StringGridRowSort(TStringGrid(Sender), vCol, vOldCol = vCol); 　　 if vOldCol = vCol then 　　 vOldCol := - vOldCol 　　 else 　　 vOldCol := vCol; 　　end;

EI3.0(DELPHI源码)，据说挺完整的，可以下载一下试试

Delphi 使同类的组件进行同样的操作的一个实例，类似于将WEB表单统一清空的功能，点击按钮后，所有文本框组件的内容被清空，作用在相同的组件实例上，代码： 　　procedure TForm1.Button2Click(Sender: TObject); 　　begin 　　 Close; 　　end; 　　 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 ClearText : Integer; 　　begin 　　 For ClearText := 0 to Form1.ComponentCount -1 do 　　 begin 　　 //判断如果窗体中包含文本框组件，则将所有文本框组件的内容清空 　　 if Form1.Components[ClearText] is TEdit then 　　 begin 　　 TEdit(Components[ClearText]).Clear; 　　 end; 　　 end; 　　end;

Delphi 监控剪贴板的文字内容，这个监控程序可以监控复制到剪切板的文字信息，图片暂时不能监控到，具体的监控实现如下： 　　NextformHwnd:HWND;//观察链中下一个窗口句柄 　　procedure WMDrawClipBoard(var AMessage:TMessage);message WM_DRAWCLIPBOARD; 　　//处理WM_DRAWCLIPBOARD消息过程 　　 { Public declarations } 　　//将WM_DRAWCLIPBOARD消息传递到下一个观察链中的窗口 　　SendMessage(NextformHwnd,AMessage.Msg,AMessage.WParam,AMessage.LParam); 　　//查询剪贴板中特定格式的数据内容 　　if (Clipboard.HasFormat(CF_TEXT) or Clipboard.HasFormat(CF_OEMTEXT)) then 　　begin 　　 //处理剪贴板中内容 　　 memo1.Lines.Clear; 　　 memo1.Lines.Add(Clipboard.asText); 　　end;

本源代码主要演示Delphi7利用鼠标绘制矩形焦点，画出虚线框矩形，按住鼠标左键抖动矩形区域，即可显示虚线矩形框，可应用于需要拖动选择对象时作为选区使用，在Delphi中，这个功能使用Canvas实现： 　　procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, 　　 Y: Integer); 　　begin 　　 if IsDraw then 　　 begin 　　 if Count >1 then 　　 DrawFocusRect(Canvas.Handle,FocuRect); 　　 FocuRect.Right := X; 　　 FocuRect.Bottom := Y; 　　 DrawFocusRect(Canvas.Handle,FocuRect); 　　 Inc(Count); 　　 IsEndDraw := True; 　　 end; 　　end;

Delphi 返回底数的任何次幂，本演示求2的4次幂、3的3次幂，求解过程如下： 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 Edit1.Text := FloatToStr(Power(2,4)); 　　 Edit2.Text := FloatToStr(Power(3,3)); 　　end; 　　以上代码定义在按钮事件中，当用户单击按钮后激活。

Delphi 怎样让Canvas上直线的一个端点跟着鼠标跑，控制Canvas上的直线点跟随鼠标移动，其实这就是画线的基本方法，直线的一端确定后，另一端需要鼠标移动来指定端点，本程序的功能就是让线段的另一头跟随鼠标移动，以确定线段的最终位置。

Delphi 获取网页源代码，这个程序首先是一个网页浏览器，可解析用户输入的网址，直接输出网页界面，然后通过操作主窗口区的Tab选项，查看该网页的源代码，也就是完成了两种功能：1、网页浏览器，2、查看源代码。运行界面如下图示。

delphi获取图片指定点RGB颜色值，载入一张BMP图像，鼠标单击图像任意处，将获取该处的RGB颜色分量图。任何一种颜色都是由RGB分量值构成，获取这些分量值，就可以改变这些值，从而改变颜色，为程序的进一步处理提供基础保障，获取RGB颜色分量，相关代码如下： 　　procedure TForm1.SpeedButton1Click(Sender: TObject); 　　begin 　　 if OpenPictureDialog1.Execute then 　　 begin 　　 image1.Picture.LoadFromFile(OpenPicturedialog1.FileName); 　　 Form1.Canvas.Draw(0,0,image1.Picture.Bitmap); 　　 end; 　　end;