• Codeby web-security - Курс "Тестирование Веб-Приложений на проникновение с нуля" от команды codeby. Общая теория, подготовка рабочего окружения, пассивный фазинг и фингерпринт, Активный фаззинг, Уязвимости, Пост-эксплуатация, Инструментальные средства, Social Engeneering и многое другое. Подробнее ...

  • Мобильный клиент нашего форума для Android гаджетов доступен в Google Play Market по этой ссылке. Клиент можно скачать с нашего форума по этой ссылке. Последняя версия МК в нашем телеграм канале вот здесь

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

  • Автор темы pyvlak
  • Дата начала
P

pyvlak

#1
Хочу унаследовать 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. Если возможно показать с примером риализации.
 
Вверх Снизу