В Delphi 4 автоматизировано определение новых классов путем генерации заготовок кода реализации для определяемых разработчиком членов классов.

Допустим, мы определяем новый класс, вводя в секцию интерфейса следующий код:

	TMSGButton=class(TButton)
	  property MSGcount:integer;
	  property MSG: string;
	  procedure ShowMSG;
	  end;

Если теперь нажать комбинацию клавиш Ctrl-Shift-C, в секцию интерфейса будут автоматически добавлены описания методов для изменения определенных свойств (в нашем случае свойств MSGCount и MSG):

	type
	  TForm1 = class(TForm)
	 TMSGButton=class(TButton)
	  property MSGcount:integer read FMSGcount write SetMSGcount;
	  property MSG: string read FMSG write SetMSG;
	  procedure ShowMSG;
	  private
	    FMSG: string;
	    FMSGcount: integer;
	    procedure SetMSG(const Value: string);
	    procedure SetMSGcount(const Value: integer);
	  end;

В секцию реализации будет добавлен следующий код:

	procedure TMSGButton.SetMSG(const Value: string);
	begin
	  FMSG := Value;
	end;
	procedure TMSGButton.SetMSGcount(const Value: integer);
	begin
	  FMSGcount := Value;
	end;
	procedure TMSGButton.ShowMSG;
	begin
	end;

Помимо этого, возможен и обратный процесс. При добавлении в секцию реализации метода, не описанного в секции интерфейса, его прототип будет добавлен при нажатии комбинации клавиш Ctrl-Shift-C.

Рис. 4 Автоматическая генерация описаний методов.