怎样自定一个类 或 一个方法 来处理一类控件的属性

8966232

        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 :Integer  read    ```   write ```

8966232

感恩无私的分享与奉献 :)