für 20 labels das onClick-ereignis steuern?

bruder jonas · Beiträge: 76

hallo,

habe ein problem.
ich habe 20 labels. bei programmstart lese ich aus einer ini-datei den labelnamen aus.

ich möchte per onclick auf das label eine webseite öffnen. die url muss vorhere eingelesen werden.
wie kann ich das mit einer for schleife machen, das für jedes der 20 label bei onclick die richtige url ausgelesen wird?

danke

Moderiert von Narses: Topic aus Sonstiges (Delphi) verschoben am Mo 29.03.2010 um 22:55

Pit · Beiträge: 160

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Moin,

beim erstellen der Labels einfach ein OnClick-Event zuweisen:

markieren

Delphi-Quelltext

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

With tLable.Create (Self) Do
  Begin
    Parent := Self;
    {...}
    OnClick := DoURLLabelClick;
  End;

Die Procedure DoURLLabelClick definierst Du einfach in der Privat-Sektion des Forms:

markieren

Delphi-Quelltext

1:
2:

private
  procedure DoURLLabelClick (aSender: tObject);

Die Implementerierung sollte in etwa so sein:

markieren

Delphi-Quelltext

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

procedure tForm1.DoURLLabelClick (aSender: tObject);
Var
  URL: String;
Begin
  URL := tLabel (aSender).Caption;
  // Hier die URL öffnen
End;

Gruß

gnomecoder · Beiträge: 51 Erhaltene Danke: 5

sorry dass ich diesen 8 Jahre alten Thread ausgrabe, aber brauche mal hilfe.
hab ein label array und hab das mit dem onclick ereignis bei der zuweisung so gemacht wie hier beschrieben. funktioniert auch super.
Nur ist es irgendwie möglich beim onclickereignis an die Indexzahl des labels zu kommen?

Beispiel: Ich klicke auf das label MyLabel[3] und lade die zahl 3 irgwie in nen label.

irgwie so in der art:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure tmain.DoLabelClick(aSender: TObject);
Begin
  label1.caption:= inttostr(tlabel(aSender).???);
End;

hoffe ihr habt mein Problem verstanden.
danke schonmal.

Moderiert von Narses: Code- durch Delphi-Tags ersetzt

Nersgatt · Verfasst: Mo 29.03.10 14:13

Delphi ist kein VB

Du bekommst mit dem Sender einen Verweis auf das entsprechende Label geliefert. Wenn Du die Indexzahl brauchst, musst Du das Element im Array suchen. Oder Du missbrauchst dafür z.B. die Tag-Eigenschaft und schreibst schon beim Erstellen der Labels den Index ins Tag. Dann kannst Du mit TLabel(Sender).Tag das ganze wieder auslesen.

_________________
Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)

gnomecoder · Beiträge: 51 Erhaltene Danke: 5

danke für die Antwort.
habs grad anders hinbekommen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure tmain.DoLabelClick(aSender: TObject);
Var
i, indexzahl  : integer;
Begin
  for i := 0 to anzahl - 1 do
  begin
    if tlabel(aSender) = labels[i] then
    indexzahl:= i;
  end;
  label1.caption := inttostr(indexzahl);
End;

nicht besonders elegant, aber funktioniert

Moderiert von Narses: Code- durch Delphi-Tags ersetzt

Nersgatt · Verfasst: Mo 29.03.10 14:27

gnomecoder hat folgendes geschrieben :

danke für die Antwort.
habs grad anders hinbekommen:

Wieso "anders"? Ist doch genauso, wie ich es gesagt hatte...

Zitat:

Wenn Du die Indexzahl brauchst, musst Du das Element im Array suchen.

Wobei ich noch etwas verbessern würde. Wenn das erste Element im Array schon das ist, das Du suchst, vergleicht Deine Schleife einfach weiter die anderen Element. Ist doch gar nicht mehr nötig, Du hast doch schon gefunden, was Du suchst.
Mach es vielleicht so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var i, indexzahl  : integer;
Begin
  i := 0;
  Indexzahl := -1;
  while (i <= anzahl - 1) and (Indexzahl < 0)
  begin
    if tlabel(aSender) = labels[i] then
      indexzahl:= i;
    inc(i);
  end;
  label1.caption := inttostr(indexzahl);
End;

_________________
Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme