Q
QianQi
Unregistered / Unconfirmed
GUEST, unregistred user!
当运行程序时，在Case TIconButton(Sender).Tag of行处出错。
missing operator or semicolon(缺少操作符或分号）。
但我已仔细检查过，未发现次类问题。以下是部分代码：
procedure TForm1.CMMouseEnter(var Msg:TMessage);
var
TIconButton:TObject;
begin
TIconButton:=TObject(Msg.lParam);
if TIconButton<>nil then
begin
Case TIconButton(Sender).Tag of
1:Edit1.Text:='Enter';
2:Edit2.Text:='Enter';
3:Edit3.Text:='Enter';
4:Edit4.Text:='Enter';
end;
end;
end;
应该是个比较简单的问题，但本人较笨。请指教！
missing operator or semicolon(缺少操作符或分号）。
但我已仔细检查过，未发现次类问题。以下是部分代码：
procedure TForm1.CMMouseEnter(var Msg:TMessage);
var
TIconButton:TObject;
begin
TIconButton:=TObject(Msg.lParam);
if TIconButton<>nil then
begin
Case TIconButton(Sender).Tag of
1:Edit1.Text:='Enter';
2:Edit2.Text:='Enter';
3:Edit3.Text:='Enter';
4:Edit4.Text:='Enter';
end;
end;
end;
应该是个比较简单的问题，但本人较笨。请指教！