现在有这样一段程序:
TestPanel=class(TPanel)
protected
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer); override;
end;
procedure TestPanel.MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
begin
inherited;
if (csDesigning in Self.ComponentState) then
begin
showMessage('exit form mouse down1');
end;
showMessage('exit form mouse down2');
end;
现在我在画面上放上这样一个Panel,在该Panel上点击时,两个message都没有被打出来,如果运行时在该Panel上点击时,第二个message会被打出来,不知为什么第一个message在设计时不会并打出来呢?是不是只有像Paint等过程才会在设计时期被调用?
还望高手多多指教?多谢多谢!
TestPanel=class(TPanel)
protected
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer); override;
end;
procedure TestPanel.MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
begin
inherited;
if (csDesigning in Self.ComponentState) then
begin
showMessage('exit form mouse down1');
end;
showMessage('exit form mouse down2');
end;
现在我在画面上放上这样一个Panel,在该Panel上点击时,两个message都没有被打出来,如果运行时在该Panel上点击时,第二个message会被打出来,不知为什么第一个message在设计时不会并打出来呢?是不是只有像Paint等过程才会在设计时期被调用?
还望高手多多指教?多谢多谢!
解决方案 »
- WebBrowser 访问带有框架的网页
- 4442型IC卡写入信息失败?求高人相助。
- 初学delphi看哪本书比较好。
- 将delphi编写的程序做成网页的问题(activeX)
- 关于Texcelapplication,编译出错。
- ***关于indy的Tcpclient读取服务端发的信息的问题。***
- 困惑!有关类的构造函数的问题?
- 怎么样将三张表中的内容连接起来
- 一个三类结构的问题,凡了我好几个星期了!
- 关于ReportBuilder 5的问题
- 我在form上有一控件clientdataset,如何扑捉要修改某一字段之前的事件,做一些判断若可行,则继续否则raise
- (整天在线)高分请教:Acm语音传输,如何消除回音,如何取消声音选择对话框,设默认参数,再如何降低延迟。
2 运行时点击PANEL时,控件状态不在csDesigning下,所以只有第二个
但Delphi的TStringGrid等为什么在设计阶段可以通过拖动鼠标来改变title的宽度的呢?我想应该是一个道理,但不知道TStringGrid是怎么实现的?还望大家指点一二。