gpt4 book ai didi

delphi - 将 OnClick 命令发送到 TabSheet 上的所有 Dynamic TColorButton

转载 作者:行者123 更新时间:2023-12-03 15:54:57 30 4
gpt4 key购买 nike

我正在开发一个 PingTool,我有一个动态创建按钮的 TabSheet(根据用户输入从 1 到 150 的任意位置),我希望能够将 OnClick 命令传递给给定的所有按钮标签表。我的个人按钮单击成功运行了我的 ping 代码,但在单击我的 PingAll 按钮时收到 EStackOverflow 消息。任何帮助将不胜感激。代码摘录如下:

用于创建按钮的代码:

begin
For x := 0 to CheckListBox1.Items.Count -1 Do
Begin
If CheckListBox1.Checked[x]=true then
begin
GLCount := (GLCount +1);
theIP :=(CheckListBox1.Items.Strings[x]);
if GLcount < 10 then begin
B := TColorButton.Create(Self);
B.Name:= ('BTN'+intToStr(GLCount+1));
B.Caption := theIP;
B.Parent := TabSheet2;
B.Height := 25;
B.Width := 97;
B.Left := 0 + GLCount * 96;
B.Top := 8;
B.BackColor := clBtnFace;
B.ForeColor := clBtnText;
B.OnClick := CustomButtonClick;
end;

自定义按钮点击代码:

Procedure TForm1.CustomButtonClick(Sender: TObject);
begin
GlobalIP:=TColorButton(Sender).caption;
IdIcmpClient1.Host := GlobalIP;
IdIcmpClient1.ReceiveTimeout := 500;
IdIcmpClient1.Ping();

case IdIcmpClient1.ReplyStatus.ReplyStatusType of
rsEcho:
TColorButton(Sender).BackColor := clGreen;
rsTimeOut:
TColorButton(Sender).BackColor := clRed;
end;
end;

PingAll 代码(不起作用):

procedure TForm1.PingAllClick(Sender: TObject);
var
i: integer;

begin
For i := 0 to TabSheet2.ControlCount -1 do
if TabSheet2.Controls[i] is TColorButton then
begin
TColorButton(Sender).Click;
end;
end;

最佳答案

您正在调用递归方法 PingAllClick...看看您调用的是 TColorButton(Sender).Click

....
Control := tabSheet2.Controls[i]
if Control is TColorButton then
TColorButton(Control ).Click()
....

关于delphi - 将 OnClick 命令发送到 TabSheet 上的所有 Dynamic TColorButton,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/13825259/

30 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com