-
Delphi 限制窗口最大化显示
Delphi 限制窗口最大化显示，当用户单击最大化按钮后，窗口稍微变大了一点，但并没有最大化，有时候，我们需要限制，不让窗口最大化，在编写实现此功能时，定义了WMGetMinMaxInfo，以下代码在函数中定义，用户操作按钮，激活函数：
with Message.MinMaxInfo^ do
begin
ptMaxSize.X := 400; //最大化时宽度
ptMaxSize.Y := 300; //最大化时高度
ptMaxPosition.X := 120; //最大化时左上角横坐标
ptMaxPosition.Y := 120; //最大化时左上角纵坐标
end;
Message.Result := 0; //通知Windows改变了minmaxinfo
- 2022-01-24 18:38:10下载
- 积分：1
-
Delphi API笔刷制作源码
Delphi API笔刷制作实例的源码，这个笔刷只不过比较简单，点击按钮后自动生成，而且是有规则的网格线，或许通过这个简单的笔刷，你可以学习到用Delphi制作笔刷的入门技巧，相关的代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
LogBrush:TLogBrush;
begin
LogBrush.lbStyle:=BS_HATCHED;
LogBrush.lbColor:=clRed;
LogBrush.lbHatch:=HS_DIAGCROSS;
Canvas.Brush.Handle := CreateBrushIndirect(LogBrush);
Canvas.FillRect(ClientRect);
end;
- 2022-03-30 01:57:49下载
- 积分：1
-
Delphi 获取网页源代码
Delphi 获取网页源代码，这个程序首先是一个网页浏览器，可解析用户输入的网址，直接输出网页界面，然后通过操作主窗口区的Tab选项，查看该网页的源代码，也就是完成了两种功能：1、网页浏览器，2、查看源代码。运行界面如下图示。
- 2023-05-24 10:50:03下载
- 积分：1
-
返回底数的任何次幂-Delphi方法
Delphi 返回底数的任何次幂，本演示求2的4次幂、3的3次幂，求解过程如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := FloatToStr(Power(2,4));
Edit2.Text := FloatToStr(Power(3,3));
end;
以上代码定义在按钮事件中，当用户单击按钮后激活。
- 2022-03-01 01:34:29下载
- 积分：1
-
Delphi7 向XML中添加RTTI信息
Delphi7.0 向XML中添加RTTI信息，这个例子挺简单，希望大家喜欢，面向Delphi新手的，高手请绕道哦，下面是本例Delphi向XML中添加RTTI信息的关键性代码：
procedure TForm1.ComponentToDOM(iNode: IXmlNode; Comp: TPersistent);
var
nProps, i: Integer;
PropList: PPropList;
Value: Variant;
newNode: IXmlNode;
begin
nProps := GetTypeData (Comp.ClassInfo)^.PropCount;
GetMem (PropList, nProps * SizeOf(Pointer));
try
GetPropInfos (Comp.ClassInfo, PropList);
for i := 0 to nProps - 1 do
begin
Value := GetPropValue (Comp, PropList [i].Name);
NewNode := iNode.AddChild(PropList [i].Name);
NewNode.Text := Value;
if (PropList [i].PropType^.Kind = tkClass) and (Value 0) then
if TObject (Integer(Value)) is TComponent then
NewNode.Text := TComponent (Integer(Value)).Name
else
ComponentToDOM (newNode, TObject (Integer(Value)) as TPersistent);
end;
finally
FreeMem (PropList);
end;
end;
- 2022-01-26 03:00:57下载
- 积分：1
-
Delphi 使播放的Flash随窗口大小改变
Delphi 使播放的Flash随窗口大小改变，也就是让Flash播放的窗口内容随着父窗口的大小而自动适应，把窗口拉大时，Flash画面也会跟着变大，让内容适应窗口大小的变化。
- 2022-05-31 21:57:49下载
- 积分：1
-
Delphi GetCurrentDirectory得到系统当前目录
得到系统当前目录，Delphi 得到系统当前目录，这里使用了内置的GetCurrentDirectory函数来实现，比较方便，也比较简单。获取到系统目录后，是通过窗口的标题栏显示目录路径信息，在演示截图上请看窗口的标题栏，显示有程序当前所在的路径。关于GetCurrentDirectory用法，请参见以下两行代码：
GetCurrentDirectory(255,dir);//获得当前目录
form1.Caption:=dir;
- 2022-07-07 13:11:54下载
- 积分：1
-
Delphi 7.0 After提取字符串中指定子字符串后的字符串
Delphi 7.0 提取字符串中指定子字符串后的字符串，这个平时在字符处理时候使用几率也挺高的，获取指定字符串后面的字符串，比如获取扩展名等也可以用此方法，本例中要用到After函数，测试时，当单击按钮时，执行以下代码：
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.Text := After(Edit2.Text,Edit1.Text);
end;
end.
- 2022-03-28 10:50:27下载
- 积分：1
-
Delphi 简单的文件查看器
Delphi 简单的文件查看器，可以获取并显示文件的显示名，获取并显示文件类型信息，获取并显示表示该程序的图标，获取文件属性信息，始获取并显示文件上次修改的日期和时间，处理用户没有选择文件而选择了文件夹或驱动器的转化异常。
- 2022-08-11 18:22:46下载
- 积分：1
-
Delphi实现流程图绘制程序附有源码
Delphi实现流程图绘制程序附有源码，看上去很专业、很高大上的样子。用来绘制工业生产流程图、软件开发流程图等。功能上像绘图软件，功能比较强大，运行界面如下图所示。生成的流程图可编辑文件扩展名为pf，本软件将自动识别。
- 2022-05-25 01:00:17下载
- 积分：1
