delphi – 如何自动生成getter和setter方法

>我定义了一个局部变量// 1
>我创建了一个属性// 2
>我按下CTRL SHIFT C并且编辑器创建getter和setter方法// 3

对于这个例子：

unit Unit1;

type
  ClassePippo=class
  private
    colorText:string; //1
    function getColorText: String; //3
    procedure setColorText(const Value: String); //3
  public
    property colore: String read getColorText write setColorText;  //2
  end;

implementation

{ ClassePippo }

function ClassePippo.getColorText: String; //3
begin
  Result:=colorText;
end;

procedure ClassePippo.setColorText(const Value: String); //3
begin
  colorText:=Value;
end;

end.

是否有自动创建getter和setter方法的功能？

我只想写colorText：string; // 1并调用快捷方式,我希望IDE自动创建// 2和// 3.

(当我使用Eclipse在Java中开发时,我可以使用Source自动生成getter和setter方法 – >生成getter和setter ……)