张
张剑波
Unregistered / Unconfirmed
GUEST, unregistred user!
这个控件是从customcontrol继承的,编译安装完毕,实际测试时,
ComponentState的属性一个也找不到:
procedure TForm1.Button1Click(Sender: TObject);
begin
if csdesigning in everything1.ComponentState then
showmessage('a');
if csdestroying in everything1.ComponentState then
showmessage('b');
if csfixups in everything1.ComponentState then
showmessage('c');
if csloading in everything1.ComponentState then
showmessage('d');
if csreading in everything1.ComponentState then
showmessage('e');
if csupdating in everything1.ComponentState then
showmessage('f');
if cswriting in everything1.ComponentState then
showmessage('j');
if csancestor in everything1.ComponentState then
showmessage('h');
end;
ComponentState的属性一个也找不到:
procedure TForm1.Button1Click(Sender: TObject);
begin
if csdesigning in everything1.ComponentState then
showmessage('a');
if csdestroying in everything1.ComponentState then
showmessage('b');
if csfixups in everything1.ComponentState then
showmessage('c');
if csloading in everything1.ComponentState then
showmessage('d');
if csreading in everything1.ComponentState then
showmessage('e');
if csupdating in everything1.ComponentState then
showmessage('f');
if cswriting in everything1.ComponentState then
showmessage('j');
if csancestor in everything1.ComponentState then
showmessage('h');
end;