Ereignisse bei dynamischen Checkboxen??

[dendthor]

Hallo,

ich hab jetzt mal schon ein bisschen hier gesucht, aber noch nichts gefunden. Ich hoffe, mein Problem passt in dieses Forum ;)



Ich habe jetzt dynamisch 15 checkboxen und dazu jeweils ein Spinedit und eine Combobox.

Mein Ziel ist folgendes:

Mit der CheckBox soll man je das dazugehörige SpinEdit und die Combobox (de)aktivieren.


Wie weise ich den (dynamischen) Checkboxen das OnClick event zu?

Ich hab's mal irgendwie so probiert:

Zitat:

procedure aktivieren;
begin
//code
end;

procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
for i:= 1 to 15 do begin
aktiv[i]:=TCheckBox.Create(Self);
aktiv[i].Parent:=Form1;
aktiv[i].Left:=32;
aktiv[i].Top:=120 + i * 40;
aktiv[i].Width:=17;
aktiv[i].Caption:='';
aktiv[i].onclik:=aktivieren;
end;
//noch die spinedits und comboboxen dynamisch erstellen

end;

wahrscheinlich ein ganz einfacher fehler. Darf in dem Fall "aktivieren" keine Prozedur sein? Wo muss man die definieren etc, etc....


Vielen Dank für Eure Hilfe (bei meiner ersten Frage. Es werden sicherlich noch mehr kommen ;) )!!



-------
dendthor

[SirThornberry]

die OnClick procedure muss vom Typ TNotifyEvents sein.

Delphi-Quellcode:

  TForm1 = class(TForm)
  [...]
  private
    procedure aktivieren(Sender: TObject);

[...]
procedure TForm1.aktivieren(Sender: TObject); 
begin 
//code 
end;

[dendthor]

Vielen Dank für die überaus schnelle Antwort! Schon geht es =)

Aber ich dachte, so hätte ich es gehabt. Was ich nicht hatte, war das (Sender: TObject) hinter dem procedure-namen.

Lag's daran? (oder hatte ich doch was anders?)



-------
dendthor

[SirThornberry]

es lag zum einen an dem "(Sender: TObject)" und dann daran das es bei dir eine Procedure ist und keine Methode (eine Methode ist eine Procedure/Function die in einer Klasse ist)

[dendthor]

aha, ok. Dann weiß ich das das nächste mal hoffentlich auch =)


Vielen Dank nochmal!