![](https://img-blog.csdnimg.cn/20201014180756930.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi
文章平均质量分 66
lzcx
这个作者很懒,什么都没留下…
展开
-
[Tips]StdCall pascal cdecl 区别
StdCall pascal cdecl 区别:参数传入Stack的顺序有所不同Directive Parameter order Clean-up Passes parameters in registers?register Left-to-right Routine Yespascal Left-to-right原创 2004-09-30 12:10:00 · 1264 阅读 · 0 评论 -
[Tips]挂起 - 运行外部程式,外部程式退出 - 继续执行
function WinExecAndWait32(FileName:String; Visibility : integer):integer;var zAppName : array[0..512] of char; zCurDir : array[0..255] of char; WorkDir : String; StartupInfo:TStartupInfo; Proce原创 2004-09-22 15:03:00 · 889 阅读 · 0 评论 -
[Tips]设置双击时间
// Set example: procedure TForm1.Button1Click(Sender: TObject); begin // will reset after system start SetDoubleClickTime(1500); end; // Get example: procedure TForm1.Button2Click(Sender: TObject)原创 2004-09-23 11:13:00 · 1032 阅读 · 0 评论 -
[TButton]运行时动态创建和删除按钮
新开一个project,然后拖两个Button放在窗体上代码如下:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) btnAddButt原创 2004-09-22 17:49:00 · 962 阅读 · 0 评论 -
[Tips]系统信息
procedure TAboutForm.GetOSInfo;var Platform: string; BuildNumber: Integer;begin case Win32Platform of VER_PLATFORM_WIN32_WINDOWS: begin Platform := Windows 95; BuildNumber :原创 2004-10-21 18:03:00 · 789 阅读 · 0 评论 -
文字走马灯效果
文字走马灯效果作者:lzcx最近碰到的问题,由于Label的Size固定,而Label.caption太长,无法完整显示出来,要求实现文字走马灯效果,依次显示出完整的内容。文字走马灯效果有几种方法:1、通过移动Label.Left值实现,但Label会移动。不符合要求2、不断复制Lable.Caption来实现,对于caption只是ASCII字符的字符串,显示是没问题的,但如原创 2006-02-07 17:48:00 · 3481 阅读 · 0 评论