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 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;