我有12个形状
Shape1
Shape2
.....
Shape12
我有 12 个标签
Label13
Label14
......
Label24
我想知道是否有办法编写这样的函数,在鼠标输入形状时会将相应的标签分配给不同的标签,例如 Label25:
Label25 :=
OnMouseEnter
shape1 -> label13
shape2 -> label14
...
shape12 -> label24
所以如果鼠标进入Shape1,Label25将等于Label13,如果鼠标进入Shape2,Label25将等于Label14,一直持续到如果鼠标进入Shape12,Label25将等于Label24。
我知道我会写
label25 := labelxx
在每个鼠标输入事件。但是认为可能有一种更简单的方法,因为标签的名称和形状对应,其中标签 # 每次都比形状 # 多 12。
添加建议后,我添加了这个
procedure TFZone1Mod7.ChangeText(sender: TObject);
var
ShapeOrderNo: integer;
FoundComponent: TComponent;
begin
if TryStrToInt(copy(TShape(Sender).Name,6,MaxInt),ShapeOrderNo) then
begin
FoundComponent := FindComponent('label'+inttostr(ShapeOrderNo+12));
if (FoundComponent is TLabel) then
Label25.Caption := TLabel(FoundComponent).Caption
else
showmessage('not found');
end;
showmessage('failed try');
end;
procedure TFZone1Mod7.Shape1MouseEnter(Sender: TObject);
begin
changetext(self);
end;
end.
但每次它运行我都会失败尝试。我发送的信息有误吗?