为什么没人回答我！

Question

请问：
   我想override一个事件 怎样写 
   比如 继承了一个Tbutton类型 我想对click事件override 怎样写
   我写的是
     procedure Click(Sender: TObject);override
   提示错误
二是
   为什么我对设计期设计好的东西 到了运行期什么也没有了
   如 我继承TStringgrid在设计期对fixed行的每一个格内容都填写了（用自己写的一个过程） 但在运行后 fixed行中的内容什么都没有 
  
请来帮帮我吧
谢谢

Answer 1

1
type
  TYourButton = Class(Tbutton)
  private
     procedure Click; override;
  public
  end;
var
  Form1: TForm1;implementation{$R *.dfm}{ TYourButton }procedure TYourButton.Click;
begin
  showmessage('11111');
  inherited;
end;procedure TForm1.Button1Click(Sender: TObject);
var
  SelfButton : TYourbutton;
begin
  selfButton := TYourButton.Create(nil);
  selfbutton.Parent := button1.Parent;
  selfbutton.Name := 'selfbutton1';
end;

Answer 2

2
 不太懂，什么是
        a 继承TStringgrid  
        b 在设计期间用过程填写了内容？

Answer 3

设计了一个控件 这个控件继承了TSTringGrid
在设计期时 我将Stringgrid的cells[0,0]:='aaa'
但在运行后 Stringgrid的cells[0,0]什么也没显示!!

Answer 4

Property TiTle: TStrings Read FTitle Write FTitleSet;
...
procedure TStG.FTitleSet(ATitle: TStrings);
begin
  If Assigned(ATiTle) then
  Begin
    FTitle.Assign(ATitle);
    SetTitle(FTitle);
  End;
end;
...
procedure TStG.SetTitle(ATitle: TStrings);
Var
  i,Max:integer;
begin
  If ColCount>ATitle.Count-1 then
    Max:=ATitle.Count-1
  else
    Max:=ColCount;
  for i:=0 to Max do
    cells[i,0]:=ATitle.Strings[i];
end;
这是附值的 有错误吗???