我采用如下方式动态生成了一些控件,并且添加了一个Click事件,当点击时控件会在红色和无色之间转换,我现在要选取变成红色控件的Text,也就是同时要确定我选中了哪个控件.
请问如何操作,谢谢!
for k:=1 to p do
begin
for i:=0 to q do
begin
with TEdit.create(self) do
begin
Parent:=ScrollBox1;
top:=20+(i div 10)*32+totalline*32;
left:=50+70*(i mod 10);
width:=60;
ReadOnly:=True;
Cursor:=crArrow;
if i<9 then
Text:=IntTostr(k)+'0'+inttostr(i+1)
else
Text:=IntTostr(k)+inttostr(i+1);
Visible:=True;
hint:='动态生成的控件';
showhint:=true;
OnClick:=MyClick;
end;
linenum:=(i div 10);
Totalline:=Totalline+linenum;
end;
请问如何操作,谢谢!
for k:=1 to p do
begin
for i:=0 to q do
begin
with TEdit.create(self) do
begin
Parent:=ScrollBox1;
top:=20+(i div 10)*32+totalline*32;
left:=50+70*(i mod 10);
width:=60;
ReadOnly:=True;
Cursor:=crArrow;
if i<9 then
Text:=IntTostr(k)+'0'+inttostr(i+1)
else
Text:=IntTostr(k)+inttostr(i+1);
Visible:=True;
hint:='动态生成的控件';
showhint:=true;
OnClick:=MyClick;
end;
linenum:=(i div 10);
Totalline:=Totalline+linenum;
end;
就知道了
在事件中用
if (sender as tEdit).tag=X 判断是那个edit
谢谢!!