过程定义:
procedure TBaseFM1.EditOption(Edit:TEdit;flag:boolean);
begin
if flag=true then
Edit.Visible:=true
else
Edit.Visible:=false;
end;调用过程:
procedure TBaseFM1.ComboBox3Change(Sender: TObject);
var i,j:integer;
begin
for i:=1 to 8 do
if j<strtoint(ComboBox3.text) then
EditOption(Edit,true) //这里的Edit是我要它的属性改变的其他的窗体上的
//8个Edit之一
else
EditOption(Edit2,false);
{有很多个TEdit的控件,如果用函数来实现控件的的属性,那么如何实现每个控件不必重新写一便?}
procedure TBaseFM1.EditOption(Edit:TEdit;flag:boolean);
begin
if flag=true then
Edit.Visible:=true
else
Edit.Visible:=false;
end;调用过程:
procedure TBaseFM1.ComboBox3Change(Sender: TObject);
var i,j:integer;
begin
for i:=1 to 8 do
if j<strtoint(ComboBox3.text) then
EditOption(Edit,true) //这里的Edit是我要它的属性改变的其他的窗体上的
//8个Edit之一
else
EditOption(Edit2,false);
{有很多个TEdit的控件,如果用函数来实现控件的的属性,那么如何实现每个控件不必重新写一便?}
一个循环写出来了?
其实老老实实一个个写出来也可以啊。
var
i : integer;
begin
for i := 0 to Sender.ControlCount - 1 do
if Sender.Controls[i] is TEdit then
(Sender.Controls[i] as TEdit).Enabled := flag;
end;