Combobox ein Onclick Ereignis zuweisen

Mike19 · Verfasst: Di 04.09.07 18:40

Hallo,

Ich mehrere ComboBoxen zur Laufzeit erstellt.
Wird auch alles richtig dargestellt.

Wie kann ich nun jeder Combobox[i] ein OnClick Ereignis zuweisen ?

Danke im voraus.

Andreas Schilling · Verfasst: Mi 05.09.07 07:20

Proceduren schreiben

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

private
  procedure Procedurename(sender : TObjekt);

procedure Form1.Procedurename(sender : Tobjekt)
begin
  ...
end

und dann der Combobox zuweisen

markieren

Delphi-Quelltext

1:	Combobox1.onclick := Procedurename; // ohne sender

Kroko · Beiträge: 1284 W98 W2k WXP Turbo D

am einfachsten über die Objectinspektor, :wink:

_________________
Die F1-Taste steht nicht unter Naturschutz und darf somit regelmäßig und oft benutzt werden! oder Wer lesen kann, ist klar im Vorteil!

jaenicke · Verfasst: Mi 05.09.07 10:57

Kroko hat folgendes geschrieben:

am einfachsten über die Objectinspektor, :wink:

Wie das? Bei einer zur Laufzeit erzeugten ComboBox musst du mir mal den Objektinspektor zeigen... :lol:

GTA-Place · Verfasst: Mi 05.09.07 11:02

Wenn du nicht grad ein Array of TComboBox hast, wäre Suche in der Entwickler-Ecke

FINDCOMPONENT noch ganz interessant um jede ComboBox anzusprechen.

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)

Kroko · Beiträge: 1284 W98 W2k WXP Turbo D

jaenicke hat folgendes geschrieben:

Kroko hat folgendes geschrieben:

am einfachsten über die Objectinspektor, :wink:

Wie das? Bei einer zur Laufzeit erzeugten ComboBox musst du mir mal den Objektinspektor zeigen... :lol:

sch..., wieder mal nicht alles gelesen, :wink:

_________________
Die F1-Taste steht nicht unter Naturschutz und darf somit regelmäßig und oft benutzt werden! oder Wer lesen kann, ist klar im Vorteil!

Mike19 · Verfasst: Mi 05.09.07 14:40

Danke,

es handelt sich um ein Array[1..99], und da ist die Zuweisung über OnClick bei der Erstellung schon richtig.

Kroko · Beiträge: 1284 W98 W2k WXP Turbo D

Welche arme S.. soll sich denn durch 99 Combobox hangeln :?:

_________________
Die F1-Taste steht nicht unter Naturschutz und darf somit regelmäßig und oft benutzt werden! oder Wer lesen kann, ist klar im Vorteil!

Mike19 · Verfasst: Do 06.09.07 17:29

Hallo,

das mit der Zuweisung des OnClick Event klappt gut, aber bei der Verarbeitung der der zugewiesenen Procedure kommt dann der Fehler "Range check error". Ich denke, dass die Zuordnung fehlt, welche Komponente die Procedure ausgelöst hat.

hier mal der Code für das OnClick Event.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm2.SchichtClick;

begin
  begin
   Label1.Caption:=aschicht[i].Name; //Prüfen, welche ComboBox die Procedure aufgerufen hat
  end;

end;

aschicht[i] ist die zur Laufzeit erzeugte Combobox als Array[1..31].

Was mache ich Falsch ?

GTA-Place · Verfasst: Do 06.09.07 19:29

So geht das nicht, du musst der Prozedur einen Sender übergeben, sonst weiß die Prozedur nicht, welche ComboBox sie aufgerufen hat.

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm2.SchichtClick(Sender: TObject);  
begin   
  Label1.Caption := (Sender as TComboBox).Name; //Prüfen, welche ComboBox die Procedure aufgerufen hat  
end;

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)

Mike19 · Verfasst: Do 06.09.07 20:00

Danke,

so gehts.

Bis zur nächsten Frage

Micha

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme