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