怎样自定一个类 或 一个方法 来处理一类控件的属性
x:=GetSystemMetrics(SM_CXSCREEN);y:=GetSystemMetrics(SM_CYSCREEN);
Edit1.Visible:= False;
Panel1.Visible:=False;
Image1.Left:=0;
Image1.Top:=0;
Image1.Height:= y;
Image1.Width:= x;
Image1.Visible:=False;
Image2.Left:=0;
Image2.Top:=0;
Image2.Height:=y;
Image2.Width:=x;
Image2.Visible:=False;
Image3.Left:=0;
Image3.Top:=0;
Image3.Height:=y;
Image3.Width:=x;
Image3.Visible:=False;
Image4.Left:=0;
Image4.Top:=0;
Image4.Height:=y;
Image4.Width:=x;
Image4.Visible:=False;
Image5.Left:=0;
Image5.Top:=0;
Image5.Height:=y;
Image5.Width:=x;
Image5.Visible:=False;
Image6.Left:=0;
Image6.Top:=0;
Image6.Height:=y;
Image6.Width:=x;
Image6.Visible:=true;
这是代码 怎样进行优化 用取属性方法
property X :Integerread ``` write ``` 感恩无私的分享与奉献 :)
页:
[1]