prozedur von komponenten

[LoL]

hi

wie kann ich von einer komponente die zur laufzeit erstellt wurde, ein ereignis auslösen,z.b button.click?

gruß christoph

[Illuminator-23-5]

NewButton.OnClick(Form1);

[LoL]

und wie jetzt genau, wie mache ich die prozedur?(code plz)

gruß christoph

[Sharky]

Zitat:

Zitat von LoL

und wie jetzt genau, wie mache ich die prozedur?(code plz)

gruß christoph

Hai LoL,

meinst Du wie Du es auslöst oder wie Du es der Komponente zuweisen musst?

[LoL]

beides

[Illuminator-23-5]

z.B.:

procedure Klicken(Sender: TObject);
begin
...
end;

Zuweisung:
NewButton.OnClick := Klicken;

Aufrufen:
NewButton.OnClick;

[LoL]

hi

ich habs probiert:

Delphi-Quellcode:

var   mybutton : TButton;

procedure Klicken(Sender: TObject);
begin
  showmessage('KLICK');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  mybutton := TButton.Create(form1);
  mybutton.Parent := form1;
  mybutton.OnClick := Klicken;
end;

geht aber net

Zitat:

[Error] Unit1.pas(38): Incompatible types: 'method pointer and regular procedure'

mfg christoph

[Dagon]

Du musst die Prozedur in TForm1 deklarieren:

Delphi-Quellcode:

  ...
private
    procedure Klicken(Sender: TObject);
  ...

[LoL]

hi

warum in privat? is doch egal oder?

mfg christoph

[Christian Seehase]

Moin Zusammen,

das Wesentliche ist, dass es sich um eine Methode handeln muss, z.B. von TForm1.

Beispiel:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    //...
    procedure Klicken(Sender: TObject);
    //...
  end;

//...

implementation

//...

procedure TForm1.Klicken(Sender: TObject);
begin
  //...
end;