1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

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

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

Тема в разделе "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. Если возможно показать с примером риализации.
     
  2. etc

    etc Гость

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

    sinkopa Well-Known Member

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

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