动态创建的问题:如何接收并判断消息。(50分)

  • 主题发起人 主题发起人 nonlyli
  • 开始时间 开始时间
N

nonlyli

Unregistered / Unconfirmed
GUEST, unregistred user!
动态创建了一个MyLabel[10,10],但如何才能让它们收到Click消息呢?然后点那个就显示:
你Click了 myLabel[j]?
 
procedure TForm1.LabelsClick(Sender:TObject);
begin
ShowMessage(TLabel(Sender).Name);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
with TLabel.Create(self) do
begin
Parent := form1;
Name :=...
...
OnClick:=LabelsClick;
end;
end;
 
后退
顶部