1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

Не получается по-нормальному у наследовать Tbutton

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

  1. pyvlak

    pyvlak Гость

    Репутация:
    0
    Хочу унаследовать 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. Если возможно показать с примером риализации.
     
Загрузка...

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