奇怪——奇怪——好生奇怪！

procedure   Tmain.sbxMainMouseDown(Sender:   TObject;   Button:   TMouseButton;  
      Shift:   TShiftState;   X,   Y:   Integer);  
  var  
      MyPanel:TPanel;  
  begin  
      MyPanel:=TPanel.Create(self);  
      ...  
      MyPanel.OnMouseDown   :=   CtrlMouseDown;  
  end;  
   
  procedure   Tmain.CtrlMouseDown(Sender:   TObject;   Button:   TMouseButton;   Shift:   TShiftState;   X,   Y:   Integer);  
  begin  
      if   not   (ssShift   in   shift)   then  
      begin  
          showmessage();//***************************  
          ...  
      end;  
  end;  
   
  为什么当我按住Shift键时有时也会执行showmessage();代码??? 问题点数：49、回复次数：3Top

1 楼zswangII（伴水清清)(一贴不灌，何以灌天下？）回复于 2001-12-15 13:03:57 得分 49

我试了，没有呀！  
  是在什么情况下？Top

2 楼chengfeng（http://www.tianyake.com）回复于 2001-12-15 13:25:20 得分 0

zswangII(伴水II)(被黑中)(副本)　:  
   
  TPanel   是在程序中创建的而且可以选中，当Tpanel多一些时好象就不行了  
   
  只能连续选中3个或4个，  
   
  你有Email吗，我的程序给你看一下  
  Top

3 楼zswangII（伴水清清)(一贴不灌，何以灌天下？）回复于 2001-12-16 13:22:30 得分 0

wjhu111@21cn.comTop

相关问题

• 奇怪
• tpanel
• mypanel
• shift
• begin

• 帖主：chengfeng
• zswangII

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载