过来吧 我准备好了

解决方案 »

  1.   

    你的perlead应该先赋个值才判断吧?不然你怎么知道它是不是空的呢?
      

  2.   

    我忘了告诉你  lead这个全局变量 目前没有用上
    所以最后一句可以不用要
    上面是我在 大富翁上 给你留言
      

  3.   

    你的perCol也没有初始值,默认是0吗?那是什么颜色?
      

  4.   

    你把prelead 和lead两个搞混了
    你把使用prelead的地方都换成了lead:-)
    下面是我原始代码   if not (prelead=nil) then
            prelead.BackColor :=preCol;   preCol:=TLead(Sender).BackColor;
       TLead(Sender).BackColor:=clred;
       prelead:=TLead(Sender);
      

  5.   

    preCol:=TLead(Sender).BackColor; //
    prelead:=TLead(Sender); //
    这两句第一次一定执行 这就是赋值了
      

  6.   

    to Dlwxn(流云) 
    不好意思 对 大富翁 的规则不熟 不知道它是否与 CSDN 短信  相似的服务
      

  7.   

    project1.exe raised exception class EOleException with message '无效的特性值'.Process stoped.Use step or Run to continue.
      

  8.   

    不会的 
       if not (prelead=nil) then
            prelead.BackColor :=preCol;   preCol:=TLead(Sender).BackColor;
       TLead(Sender).BackColor:=clred;
       prelead:=TLead(Sender);这段代码中比没有特别的地方 要不你跟踪一下
      

  9.   

    跟踪了,第一次的时候没有任何问题,每二次单击的时候,问题出现在if not (prelead=nil) then处,再F8的时候就会出现错误提示了
      

  10.   

    如果你的代码和我上面贴的一样的话 应该不会出问题的 
    你打开的DCM文件中有多少幅图 我用的是2幅图的文件来测试的
      

  11.   

    第一次点击的时候PerCol的值是-16777201,第二次点击的时候prelead.BackColor :=preCol;把preCol的值赋给prelead.backcolor的时候跟踪prelead.backcolor=inaccessible value
      

  12.   

    你是不是把preCol定义成局部变量了?
    我昨天说的是 
    prelead /lead/precol都是全局变量 :-)
      

  13.   

    [email protected]
    [email protected]
      

  14.   

    我觉得是这个问题 把preCol定义成全局变量就好了
      

  15.   

    因为上次不小心把你的MAIL删了
      

  16.   

    奥,没关系,我QQ里也有我的MALL呀
      

  17.   

    unit Unit2;interfaceuses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, ExtCtrls,Unit1, ExtDlgs,LTDICLib_TLB,LEADLib_TLB,ltDlltyp,
      LTDLLUNT,ltDLLDef;type
      TForm2 = class(TForm)
        Panel1: TPanel;
        Button1: TButton;
        Button2: TButton;
        SavePictureDialog1: TSavePictureDialog;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }  public
        { Public declarations }
        procedure leadOnClick(Sender: TObject);
      end;var
      Form2: TForm2;
      lead:TLEAD;
      exeHandle:THandle;
      prelead:TLEAD;
      precol:TColor;
    implementation
    {$R *.dfm}procedure TForm2.Button1Click(Sender: TObject);
    begin   SendMessage(exeHandle,WM_CLOSE,0,0);
    end;procedure TForm2.leadOnClick(Sender: TObject);
    begin
            ShowMessage(TLead(Sender).Name);
            if not (prelead=nil) then
            prelead.BackColor :=preCol;   preCol:=TLead(Sender).BackColor;
       TLead(Sender).BackColor:=clred;
       prelead:=TLead(Sender);end;end.
      

  18.   

    我觉得“短时间内快速的学好”这样的提法有欠考虑 因为这个要求对任何人 在任何时间 任何地点 用任何的方式 去学习任何的知识 都是 Mission Impossible 攀登知识的阶梯 没有捷近 只有能披荆斩棘的人才能勇往直前 到达顶点 
    但是 “短时间内入门”的渠道是有的 我们现在在讨论就是一个很有效的
      

  19.   

    你把 ShowMessage 注释掉 试试吧 我目前还不知道这个和消息中断有没有关系
      

  20.   

    showmessage注释掉了,还是出错,这个问题真是个问题,找不出原因的?
      

  21.   

    我的看法是这样的 如果我招聘员工(技术人员 特别是程序员和系统分析员) 我首先看中的是综合素质 解决问题的能力 适应新环境的能力 和自学能力 行业经验是次要的 因为 有经验丰富的SA 和 PM来引导他 这个心理应该是用人着普遍的存在的 可能会因人而异 因不同的性格 公司的发展目标 和赢利模式 企业文化 和HR的策略而又一些差异 但是大体上是这样的 因为这样合理  反过来说 如果用人者都是希望招聘到都是行业专家 或者是只考虑经验的话 
    首先不利于市场的发展 和人才梯队的建设 对公司发展不利 更重要的是 你又如何能切入到你心仪已久的通讯行业中呢? 如果他们只要有经验的人才的话:-)
      

  22.   

    就我自己而言 从你和我讨论问题的那一天起 我也才真正涉足这个领域 我为了能回答你提出的问题 我用了一些时间去尽快的了解一些这方面的基础知识 然后和我所知道的知识做一个初步的结合 在我们讨论的时候 我也会去做一些小的尝试 来证明我所做的结合是否合理 成功失败的经历都有 为了不至于没有和你讨论这类问题的切入点 让你失望  我晚上就看一些图形方面的资料 然后整理一下 看看是否能和LEAD控件做结合
      

  23.   

    如果 不需要贴大段的代码的话 我们还是会聊天室吧  不然这张帖子总是UP到顶 斑竹会封我们的ID的
      

  24.   

    把这段代码放到你那里试试,怎么我单击一次再单击一次的时候边框的颜色还是黄色的?
    if not(MyLead=nil) then
       begin
          Mylead.FrameInnerThickness:=0;
          Mylead.FrameColor:=MyFreamCol;
       end;
       MyFreamCol:=clBlack;//TLEAD(Sender).BackColor;
       TLead(Sender).FrameThickness:=2;
       TLEAD(Sender).FrameColor:=clYellow;
       TLEAD(Sender).ForceRepaint;