Announcement

Collapse
No announcement yet.

Label zur Laufzeit Löschen

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Label zur Laufzeit Löschen

    Hallo,
    mein Poroblem besteht darin , das ich in meiner Anwendung auf verschieden Panel Texte erzeuge,

    was so aussieht :

    procedure TDruck_Form_erstellung.Text_Einfuegen(LaufendeNr : Integer);
    begin
    aTempLabel[LaufendeNr] := TLabel.Create(self);
    with aTempLabel[LaufendeNr] do
    begin
    Parent := TempPanel;
    Left := 1;
    Top := 1;
    Caption := 'Der eingefügter Text';
    Name := 'Label' + IntToStr(LaufendeNr);
    OnClick := LabelClick;
    if TempPanel.Name = 'Kopf_Panel' then
    OnMouseMove := Kopf_PanelMouseMove;
    ShowHint := True;
    Hint := 'Fester Text';
    end;
    end;

    diesen Text mus ich aber beim auswählen eines anderen eintrages einer ComboBox wieder löschen .
    Aber wie ????
    Ich bedanke mich schon mal für einen Lösungsvorschlag.
Working...
X