Помогите с наследованием(delphi7)

Тема в разделе "Delphi - FAQ", создана пользователем pyvlak, 5 май 2010.

  1. pyvlak

    pyvlak Гость

    Хочу унаследовать TButton, но у меня не получается выполнить элементарную обработку события.
    Вот что у меня сейчас получилось:
    TMyButton= class(TButton)
    protected
    procedure Click; override;
    public
    constructor Create (AOwner: TComponent); override;
    procedure Init(_Parent: TWinControl);
    end;

    implementation
    //----TMyButton----
    constructor TMyButton.Create (AOwner: TComponent);
    begin
    inherited;
    end;
    //Задаем параметры кнопки
    procedure TMyButton.Init(_Parent: TWinControl);
    begin
    Parent:= _Parent;
    Font.Size:= 10; Caption:= 'My Button';
    Left:= 552; Top:= 552;
    Width:= 129; Height:= 33;
    ShowHint := true;
    end;

    procedure TMyButton.Click;
    begin
    inherited;
    Caption:= '!';
    end;

    И вот сама реализация:
    MyBut:= TMyButton.Create(Form1);
    MyBut.Init(Form1);
    Помогите дополнить TMyButton так, чтобы через свою кнопку я мог по щелчку мыши делать, например, то же самое:
    procedure TForm1.FireButtonClick(Sender: TObject);
    begin
    Timer1.Enabled:=not Timer1.Enabled;
    end;

    p.s. Если возможно показать с примером риализации.
     
  2. etc

    etc Гость

    Еще 5 таких тем и вас поругают.
     
  3. sinkopa

    sinkopa Well-Known Member

    Регистрация:
    17 июн 2009
    Сообщения:
    344
    Симпатии:
    9
Загрузка...

Поделиться этой страницей