超级菜鸟问题，我想把一个窗体……

Question

直接在TForm的继承类中添加，例如：
TForm1 = class(TForm)
.
.
.
private
.
.
.
protected
.
.
.
public
  your_property:your_property_type;
end;

Answer 1

修正：
TForm1 = class(TForm)
.
.
.
private
Fypur_property:your_property_type;
procedure setyour_property(p:your_property_type);
.
.
.
protected
.
.
.
public
  property your_property:your_property_type;read Fyour_property write setyour_property;
end;   

Answer 2

your_property:your_property_type;放在protected里

Answer 3

your_property:string;read 读的程序 write 写的程序
.
.
.
读的程序 
begin
  result:='';
end;
写的程序
begin
end;

Answer 4

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
  TForm1 = class(TForm)
  private
    FTestString: string;
    procedure SetTestString(const Value: string);
    { Private declarations }
  public
    { Public declarations }
    property TestString:string read FTestString write SetTestString;
  end;var
  Form1: TForm1;implementation{$R *.DFM}{ TForm1 }procedure TForm1.SetTestString(const Value: string);
begin
  FTestString := Value;
end;end.