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

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

Наш партнер Genesis Hackspace
  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
Загрузка...
Похожие Темы - Помогите наследованием(delphi7)
  1. qwertys
    Ответов:
    6
    Просмотров:
    167
  2. otokys
    Ответов:
    0
    Просмотров:
    52
  3. Nicolay
    Ответов:
    5
    Просмотров:
    139
  4. Տօօօօշ
    Ответов:
    1
    Просмотров:
    118
  5. сергей799
    Ответов:
    2
    Просмотров:
    114

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