OnMouseDown Methode hinzufügen->Label wird per Code erstellt

[zeras]

Ich mache das bei einer Sprachenanzeige so:

Delphi-Quellcode:

  for Idx := 0 to Cnt - 1 do begin
      NewItem:= TMenuItem.Create(Self);
      NewItem.Caption:=LanguagesSL[Idx];
      NewItem.Tag:=Idx;
      NewItem.OnClick:=SelLanguage;
      LanguageSprache1.Add(NewItem);        //Sprachen an Menueintrag dranhängen
    end;

Du mußt nur OnClick in OnMouseDown ändern und dann die entsprechende Prozedur erstellen, die dann das macht, was du willst.