心动吧DELPHI网络书

  下载的时候最好不要用迅雷,要不然很容易断线.

  提供多个控件下载:

作者：心动吧明生KISS

转载请注明:http://www.abcxd.com   

在使用delphi很多情况下,我们需要使用到错误机制以保证程序继续往下执行.所以这一节记录了一下错误机制的大致方法    Try //写进你的代码 Except //出错时运行这里的代码 End;   从上面的一段代

while GetMessage(MsgRec, 0, 0, 0) do

begin

TranslateMessage(MsgRec);

DispatchMessage(MsgRec);

//Sleep(1000);

if abool=true then  Break;

end;



当我发送了消息队列的时候,发送完之后，线程会处于休眠状态,这时候该怎么样做才可以让线程重新唤醒或者结束他呢?



个人想法:

  在主窗中插入一个定时器,然后在定时器执行的代码中写入

  PostThreadMessage(ThreadId,WM_QUIT,0,0) //僵哥代码

  到一定的时候就执行一下上面的代码让他退出他



  而这时候的问题来了.

  PostThreadMessage当中的Threadid参数我如何获得,从上面的循环中我看中了一个msgrec我是否能够替换Treadid呢?替换成下面的

            PostThreadMessage(MsgRec,WM_QUIT,0,0)

      替换后,我发现WM_QUIT出现提示

            incompatible types: 'cardinal' and 'tagMsg'

    简单来说就是类型不一样无法替换...



问题1：我在主窗体内写这样的代码会不会有其他的问题存在？

问题2：应该怎么解决休眠问题和如何传递参数到主窗体的定时器中 

 

在操作API的时候很多时候需要用到我们键盘上的按键,这里是对照的

      更多

得到WINDOWS的SYSTEM路径:     方法:             var                  MySysPath : PCHAR ;             begin                     GetMem(MySysPath,255);                     GetSystemDirectory(MySysPath,255);             end;    注:MySysPath为SYSTEM路径 得到程序的路径   ExtractFileDir(Application.Exename); 察看文件是否存在   FileExists(FileName:String):Boolean;

#1楼  2008-08-14 09:18 ls [未注册用户]

万一老师，您太还好了，非常感谢，，，，万分感谢

     

#2楼  2008-08-14 12:00 uiuxt [未注册用户]

请教万一老师,同一窗体内的相同的控件如果找句柄,怎么找啊

     

#3楼 [楼主] 2008-08-14 12:35 万一     

@uiuxt

同一窗体内的控件是不可以重名的.

你说的是相同类型吗? 譬如: Button1.Handle; Button2.Handle 这就是句柄了.

    

#4楼  2008-08-14 13:39 uiuxt [未注册用户]

是同一窗休里面有很多子窗体，子窗体的类名都是父窗体的一样，子窗体没标题，如何得到指定字窗体内的某个控件的句柄呢？

明生注:我们知道点击某一些软件的图标。他就会打开。但是你知道当你点击后。系统需要发送多少个命令才能实现到你点击的功能吗？这只是一个很小的举例。看了这一个之后。你会学到更多消息值 注释 WM_NULL$0000 WM_CREATE$0001 WM_DESTROY$0002 WM_MOVE$0003 WM_SIZE$0005 WM_

//引用及TYPE变量申明usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls,nb30; {重要引用}typePASTAT = ^TASTAT;TASTAT = recordadapter : TAdapterStatus;name_buf : TNameBu