![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi(转帖)
文章平均质量分 76
dropme
这个作者很懒,什么都没留下…
展开
-
浅谈Object Pascal的指针
大家都认为,C语言之所以强大,以及其自由性,很大部分体现在其灵活的指针运用上。因此,说指针是C语言的灵魂,一点都不为过。同时,这种说法也让很多人产生误解,似乎只有C语言的指针才能算指针。Basic不支持指针,在此不论。其实,Pascal语言本身也是支持指针的。从最初的Pascal发展至今的 Object Pascal,可以说在指针运用上,丝毫不会逊色于C语言的指针。 以下内容分为八个部分,分转载 2006-09-07 15:09:00 · 973 阅读 · 0 评论 -
DLL笔记
DLL笔记 下面以DLL简单程序的测试,来展示DLL的用法和各种注意点: 一个DLL程序: library Project2; uses SysUtils,Classes; {$R *.res} function Min(X, Y: Integer): Integer; stdcall; begin转载 2006-05-26 14:20:00 · 1010 阅读 · 0 评论 -
Delphi事件的广播
明天就是五一节了,辛苦了好几个月,借此机会应该尽情放松一番。可是想到Blog好久没有写文章,似乎缺些什么似的。这几个月来在项目中又增长了许多经验,学到许多实际应用的知识。不如把一些比较有用的记录下来,供朋友们参考可好。我想到Delphi的事件,那可真是个方便的东西,初学者在窗体上拉几个控件,并指定它们的事件,写几句代码,立刻就得到他们想要的效果。可是事件在方便的同时也有一个不足之处,就是只能指转载 2006-07-25 16:51:00 · 1593 阅读 · 0 评论 -
接口小论
完成一个功能时用到观察者模式,将业务类的变化通知给外部的窗体,同时也通知给另一个类,假设为TTest,这个类继承自TInterfaceObject。窗体和TTest都实现了一个接口,因此业务类通过接口可以将变化通知给外部。感觉这个类层次应用得很好,但问题出现了,业务类用IInterfaceList管理这些接口,程序关闭时,IInterfaceList将所有的接口置为Nil,按以前的理解,实现接转载 2006-07-25 18:10:00 · 929 阅读 · 0 评论 -
解决Webbrowser加载Flash后,方向键等冲突
<br />主窗体上放一个ApplicationEvent控件,OnMessage事件中这么写:<br /> <br />procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);const StdKeys = [VK_TAB, VK_RETURN, VK_BACK]; { standard keys } ExtKeys = [VK_DELETE, VK_LEFT, VK_RIGH原创 2011-03-16 14:37:00 · 5184 阅读 · 0 评论 -
判断Webbrowser是否加载完成
<br />var Form1: TForm1; glpDisp: IDispatch = nil;implementation{$R *.dfm}procedure TForm1.EmbeddedWB1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);begin if (glpDisp <> nil) and (glpDisp = pDisp) then转载 2011-04-02 09:35:00 · 4714 阅读 · 0 评论 -
遍历枚举类型
<br />uses TypInfo;{以 TAlign 为例}procedure TForm1.Button1Click(Sender: TObject);var enum: TAlign; i: Integer; str: string;begin Memo1.Clear; for enum := Low(TAlign) to High(TAlign) do begin i := ord(enum); //Integer(enum)转载 2011-04-08 09:30:00 · 2814 阅读 · 0 评论