-
Delphi 利用API绘制弧形
Delphi 利用API绘制弧形，
begin
ArcRect := ClientRect;
Canvas.Pen.Width:=2;
for i:=1 to 10 do
begin
Arc(Canvas.Handle,ArcRect.Left,ArcRect.Top,ArcRect.Right,
ArcRect.Bottom,ArcRect.Right,(ArcRect.Bottom-ArcRect.Top) div 2,
ArcRect.Left,(ArcRect.Bottom-ArcRect.Top) div 2);
InflateRect(ArcRect,-2,-2);
Canvas.Pen.Color := PaletteIndex(i+10);
end;
- 2022-03-21 03:44:09下载
- 积分：1
-
Delphi 读写物理扇区——实模式
Delphi 读写物理扇区——实模式， asm //以下汇编代码中，只有第一参数、第二参数、pFunc的值是需要改变的，其余都是固定的写法
pushad
push ebp //#2，保存ebp
sub esp,$2c //#1，预留2c字节的栈空间
push Int13Reg16 //第一参数，如果没有参数，则不用push
//第二参数，如果没有参数，则不用push
mov edx, pFunc //函数地址
mov ebp,esp //
add ebp,$2c //ebp校正，是作者分析QT_Thunk时发现的
call QT_Thunk
add esp,$2c //#1，释放上面预留的2c字节的栈空间
pop ebp //#2，恢复ebp
mov byte ptr @result,al
popad
end;
- 2022-01-24 18:37:58下载
- 积分：1
-
Delphi 在程序运行过程中动态添加菜单
Delphi创建动态菜单，在程序运行过程中动态添加菜单，点击“添加菜单”按钮，会在菜单栏中增加一个“编辑”菜单项，预设中每次添加的菜单项都是“编辑”，这也是为了验证不要添加重复的菜单项，代码中的判断是一种方法，另外也可以通过菜单项的Caption属性来判断，不过之前最好设置AutoHotkeys和AutoLineReduction为maManual。在以下创建菜单项的代码中：
self.MainMenu1.AutoHotkeys:=maManual;
self.MainMenu1.AutoLineReduction:=maManual;
通过设置这两个属性可以禁止程序自动为菜单生成热键，否则程序会自动在菜单的Caption属性中加入热键，并且会修改Caption属性的值，给通过Caption属性判断菜单项带来麻烦。
- 2022-03-22 14:48:49下载
- 积分：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
-
Delphi 实现窗体的全屏显示效果
Delphi 实现窗体的全屏显示效果，单击按钮后即可全屏。
- 2023-03-25 11:25:03下载
- 积分：1
-
Delphi 使播放的Flash随窗口大小改变
Delphi 使播放的Flash随窗口大小改变，也就是让Flash播放的窗口内容随着父窗口的大小而自动适应，把窗口拉大时，Flash画面也会跟着变大，让内容适应窗口大小的变化。
- 2022-05-31 21:57:49下载
- 积分：1
-
Delphi Canvas.Brush为窗体绘制渐变背景
Delphi 为窗体绘制渐变背景，这里使用了Delphi中的Canvas.Brush.Color来实现窗口背景的渐变色，不错吧？如示例图的左右渐变效果，实现的代码：
for i:=0 to self.Width-1 do
begin
c1:=GetRValue(StartColor)+Trunc(i*(GetRValue(EndColor)-GetRValue(StartColor))/(self.Width-1));
c2:=GetGValue(StartColor)+Trunc(i*(GetGValue(EndColor)-GetGValue(StartColor))/(self.Width-1));
c3:=GetBValue(StartColor)+Trunc(i*(GetBValue(EndColor)-GetBValue(StartColor))/(self.Width-1));
Canvas.Brush.Color:=RGB(c1,c2,c3);
//每次画矩形的画刷颜色
Dct:=Rect(i,0,i+1,self.Height);
//每次刷绘的矩形区域
Canvas.FillRect(Dct);
//填充颜色
end;
- 2022-05-24 21:26:59下载
- 积分：1
-
Delphi 控制Canvas上的直线点跟随鼠标移动
Delphi 怎样让Canvas上直线的一个端点跟着鼠标跑，控制Canvas上的直线点跟随鼠标移动，其实这就是画线的基本方法，直线的一端确定后，另一端需要鼠标移动来指定端点，本程序的功能就是让线段的另一头跟随鼠标移动，以确定线段的最终位置。
- 2022-02-25 18:56:03下载
- 积分：1
-
方格变换的Delphi图像显示，类似于马赛克
方格变换的Delphi图像显示，类似于那种动态的马赛克效果，电视上经常见到这种图像切换的效果，当然网页上的一些焦点图切换也会常见到这种图像转场的过渡效果，相比直来直去的切换，增加了一些视觉效果，不至于那么单调。
本效果适用的图像格式了BMP位图，其它图片格式未做测试。
- 2022-07-18 02:39:41下载
- 积分：1
-
Delphi 显示彩色数据表格
Delphi 显示彩色数据表格，对DBGrid数据表格进行美化，自定义任意行和任意列单元格显示不同的背景颜色，这样可实现特定数据显示不同的颜色，更利于报表的清淅直观。
- 2022-03-15 16:49:57下载
- 积分：1
