-
Delphi 使用Canvas美化ListBox列表项
Delphi 使用Canvas美化列表项，当用户鼠标单击ListBox列表项时，该列表项高亮显示，改变背景色，文字居中对齐，如图所示。
主要是使用了Delphi中的Canvas.FrameRect对其进行美化，具体代码有兴趣可参考：
Canvas.FrameRect(Clientrect);
if odSelected in State then
begin
Canvas.Brush.Color:=clRed;
Canvas.RoundRect(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom,8,15);
setBkMode(Canvas.Handle,TRANSPARENT );
Canvas.TextOut((Rect.right-Rect.Left) div 2,Rect.Top,Items.Strings[Index]);
end
else
begin
Canvas.Brush.Color:=clSkyBlue;
Canvas.RoundRect(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom,15,15);
Canvas.TextRect(Rect,Rect.Left,Rect.Top,Items.Strings[Index]);
end;
- 2022-06-01 23:33:23下载
- 积分：1
-
Delphi 控制Canvas上的直线点跟随鼠标移动
Delphi 怎样让Canvas上直线的一个端点跟着鼠标跑，控制Canvas上的直线点跟随鼠标移动，其实这就是画线的基本方法，直线的一端确定后，另一端需要鼠标移动来指定端点，本程序的功能就是让线段的另一头跟随鼠标移动，以确定线段的最终位置。
- 2022-02-25 18:56:03下载
- 积分：1
-
Delphi 在窗体上显示超级连接效果
Delphi7.0实现超级连接效果，在窗体上显示超级链接，这个似乎比较简单了，在网页上这是基本的功能，不过如何把一个超链接显示在窗口中，和网页上有些区别，通过这个例子你将学会如何在窗体上实现链接的显示，以及多种链接状态的自定义功能。
- 2023-03-23 16:40:03下载
- 积分：1
-
圆角的窗体-Delphi代码实现方法
Delphi实现圆角的窗体效果，将矩形的窗口效果修饰为圆角的风格，如示例截图所示的效果，核心的几行代码如下：
begin
hr:=createroundrectrgn(0,0,width,height,20,20);//定义园角矩形(win API函数)
setwindowrgn(handle,hr,true); //设置园角窗口
end;
- 2022-08-18 21:29:53下载
- 积分：1
-
Delphi 百叶窗的方式显示图像
百叶窗效果的图像显示，这个效果我觉得大家不会陌生吧，在电视上、电脑上，这种切换图片显示的方式还是挺常见的，像百叶窗的样式，本效果重在演示图像的解析。
- 2022-02-04 23:25:14下载
- 积分：1
-
又一款基于数据库的Delphi图书管理系统
又一款基于数据库的Delphi图书管理系统，源代码完整供参考学习Delphi的数据库编程。
高手可在此基础上开发完善出功能更强大的图书管理系统。
本系统目前具备的功能模块有：基本信息设置、图上登记、注销及管理、读者管理、借阅管理、综合信息查询、图书登记等。
- 2023-06-04 01:55:03下载
- 积分：1
-
Delphi 记录文件的读写
Delphi 记录文件的读写，这个程序非数据库程序，实际上也不是文件读写程序，只是使用主窗口、子窗口在这之间传值。在子窗口中输入数据，确定后，会将数据添加到主窗口的StringGrid中，然后通过修改命令，从StringGrid中再读取出数据，进行修改保存，演示了文件内容的读取和写入的操作过程 。
- 2022-02-12 09:49:41下载
- 积分：1
-
Delphi获取和设置汉字输入法
Delphi 获取系统中已安装的中文输入法，判断是否在中文状态,若是则关闭它，切换半角和全角模式，切换中文标点模式和英文标点模式，并对输入法做相关设置。以下是相关代码：
procedure TForm1.closecid;
var
mycid:hkl;
begin
mycid:=GetKeyBoardLayOut(0);
if ImmIsIME(mycid) then
//判断是否在中文状态,若是则关闭它
immsimulateHotkey(handle,IME_CHotKey_IME_NonIME_Toggle);
end;
procedure TForm1.FormShow(Sender: TObject);
var
j:integer;
begin
for j:=0 to screen.imes.count-1 do
begin
//获取系统中已安装的中文输入法
ComBoBox1.Items.Add(screen.Imes.strings[j]);
end;
end;
- 2022-10-19 03:05:03下载
- 积分：1
-
Delphi7利用鼠标绘制矩形焦点的源码
本源代码主要演示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;
- 2023-02-14 21:35:04下载
- 积分：1
-
Delphi 使窗体始终在最前面
Delphi 使窗体始终在最前面，不几行代码实现的置顶窗口，大家对这种窗口相信都不会太陌生，不被其它的窗口遮挡，显示在最前面，典型的应用像一些视频播放器的播放窗口，在播放视频时可设置显示在最顶端，你可以边工作边看电影啦！详细实现请参考源代码。
- 2022-03-14 11:14:48下载
- 积分：1
