Hi,
also, ich bin etwas verwirrt. Eigentlich so verwirrt, dass ich es schnell mal ausprobiert habe. Wo ist das Problem? Procedure Click vererben und alles ist gut.
Klicke ich im folgenden Bsp. auf den Button, dann kommt mein Hallo. Das OnClick muss dabei nicht vergewaltigt werden.
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TMyButton =
class(TButton)
public
procedure Click;
override;
end;
TForm1 =
class(TForm)
procedure FormCreate(Sender: TObject);
private
public
Button2 : TMyButton;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
Button2 := TMyButton.Create(self);
Button2.parent := self;
Button2.top := 50;
Button2.Left := 50;
end;
{ TMyButton }
procedure TmyButton.Click;
begin
inherited;
MessageDlg('
Hallo', mtInformation, [mbOK], 0);
end;
end.
Gruß oki