 |
Допустим, мы определяем новый класс, вводя в секцию интерфейса следующий код:
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.
|