Question

delphi 动态改变edit的颜色？

请教我该如何动态改变edit的颜色。在变量中动态找到edit的控件并改变其颜色。如i=clred;我需要i能代表edit1,edit2,edit3...我需要临时改变屏幕上多个edit的背景颜色。

Answer 1

var i: Integer;begin for i 1 to N do //N为Edit的个数 begin if Assigned(FindComponent('Edit'+IntToStr(i))) then TEdit(FindComponent('Edit'+IntToStr(i))).Color clRed; end;end; 查看原帖>>