1. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Первый товар уже в продаже: Консультация на тему ИБ от Ondrik8

    Скрыть объявление
  2. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Второй товар маркетплейса: Надёжная обфускация вашей программы от PingVinich

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

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

Тема в разделе "Delphi - FAQ", создана пользователем 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
Загрузка...
Похожие Темы - Помогите наследованием(delphi7)
  1. number27
    Ответов:
    0
    Просмотров:
    78
  2. Rina
    Ответов:
    0
    Просмотров:
    94
  3. maksiiimka
    Ответов:
    2
    Просмотров:
    91
  4. Ким
    Ответов:
    23
    Просмотров:
    624
  5. Sr233
    Ответов:
    2
    Просмотров:
    196

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