补课,api,指针，还有外语。。(150分)

千中元 · 2000-11-25

Private TrayIcon

NOTIFYICONDATA; Icon:TIcon; .... Procedure TFormCreate(Sender:Tobject);   begin    New(TrayIcon);    TrayIcon.cbSize:=Sizeof(TrayIcon^);   //Sizeof 函数：Returns the number of bytes occupied by a variable or type.   //问题0:忘了指针怎么用了，用指针能在这里能得到一个Number,不明白    TrayIcon.uID:=200;  //  Application-defined identifier of the taskbar icon ,                        //  问题1：为什么是200呢？这个取值得区间是什么？    TrayIcon.Wnd:=Handle;//问题2：Handle默认是Form的句柄么？      //Handle to the window that will receive notification messages      //associated with an icon in the taskbar status area.

elan · 2000-11-25

//  问题1：为什么是200呢？这个取值得区间是什么？   它要你自己定一个一个数，随便给一个吧。如果你要添加个2任务 栏图标，这两个uID就不能一样。   //问题2：Handle默认是Form的句柄么？   Handle是要接收taskbar 图标消息的窗口句柄。

cgh0717 · 2000-11-25

问题2：Handle默认是Form的句柄么？ 是的，应为这个过程的父是TForm。所以，若没有说明，就会认为是他父的属性。 for example: form2.caption--->'form2';form1.caption-->'form1' procedure TForm1.XXX; begin showmessage(form2.caption);//show出的是 form2 showmessage(caption);//show出的是 form1 //这其实是pascal中的作用域问题 end;

JohnsonGuo · 2000-11-25

错了。应该是 TrayIcon: TNotifyIconData;           ~~~~ procedure TForm1.FormCreate(...); begin   with TrayIcon do begin     cbSize := SizeOf(TNotifyIconData);     //如果是SizeOf(TrayIcon^)返回值永远是8     uID := 200;   //这个值可以是任何整数     Wnd := Handle;    //这段代码所在模块是Unit1，所以Handle是TForm1.Handle   end; end;

JohnsonGuo · 2000-11-25

uID主要是用于定义通告消息，如： const   WM_NOTIFYICON = WM_USER + 200;//200和uID相同

liguang · 2000-11-25

问题0 Sizeof中的值应当是一个类型,应该是Sizeof(TNOTIFYICONDATA);(PNOTIFYICONDATA是指针 类型,所以取其SIZE是不准的.只有4字节). 问题2Handle默认的当然是窗口的句柄,不过用WITH除外,WITH内HANDLE是WITH当中变量的句 柄(如果有句柄的话).

BaKuBaKu · 2000-11-26

To JohnsonGuo: “这段代码所在模块是Unit1，所以Handle是TForm1.Handle”。   此言差矣！   Handle 是对象属性之一，其实这句话省略了一点，完整的写法应该是：Self.Handle 。 Self 相当于 C++ 的 this ，但是 Delphi 允许省略这个前缀，前提条件是该语句应处在 对象的类方法中，FormCreate 是 TForm1 的类方法，所以 Handle 默认是指 Form1 的句 柄。   按照 JohnsonGuo 大虾的说法，如果一个 unit 里面有多个 class 该怎么解释呢？ 其实 cgh0717 大虾在前面已经说对了。   另外，SizeOf 方法的对象应该是“类型”或者变量，而不是指针。

cheka · 2000-11-26

我怎么感觉有点怪怪的， TrayIcon是指针类型的啊， 怎么可以用TrayIcon.cbsize呢？TrayIcon^.cbsize才对吧。 千中元看到我在OICQ上给你的留言了么？呵呵

千中元 · 2000-11-27

johnsonGuo这段代码没错（机器是最好的检验。呵呵） 所以大家请继续，特别关注sizeof 里的。。 cheka, 什么留言，我用的是2000版本，可能收不到。ourdelphi@163.net,你再copy一次  发过来吧。

gcq · 2000-11-29

cheka,对指针操作，不加^好象是一样的！当然，我也已经习惯加了！ 》Sizeof(TrayIcon^); 是sizeof(NotifyIconData) 》uID 随便 》TrayIcon.Wnd:=Handle 对，是这样的！

千中元 · 2000-11-29

》不加^好象是一样的 我连汉语也不懂了：（

Pipi. · 2000-11-29

sizeof 里面的，你原来的写法也可以，不过， 确实TrayIcon用 PNOTIFYICONDATA 不如用 TNotifyIconData 方便。 因为你用 PNOTIFYICONDATA 的话，它不过是个指针，还要用new来申请 内存，用完还要Dispose之。而用 TNotifyIconData 是在进入过程的时候 直接在栈中申请内存，而退出的时候就无须释放了。 你原来的写法，Sizeof(TrayIcon^) 是得到TrayIcon指向的内存的大小。 要是写成 Sizeof(TrayIcon) 就不对了，这个是指针，在win32中，指针 是32位的，所以固定是4个字节

gcq · 2000-11-30

就是说P^.X和P.X好象一样！

千中元 · 2000-12-18

多人接受答案了。

<font color=red>补课</font>,api,指针，还有外语。。(150分)

千中元

Unregistered / Unconfirmed

elan

Unregistered / Unconfirmed

cgh0717

Unregistered / Unconfirmed

JohnsonGuo

Unregistered / Unconfirmed

JohnsonGuo

Unregistered / Unconfirmed

liguang

Unregistered / Unconfirmed

BaKuBaKu

Unregistered / Unconfirmed

cheka

Unregistered / Unconfirmed

千中元

Unregistered / Unconfirmed

gcq

Unregistered / Unconfirmed

千中元

Unregistered / Unconfirmed

Pipi.

Unregistered / Unconfirmed

gcq

Unregistered / Unconfirmed

千中元

Unregistered / Unconfirmed

Similar threads