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.
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.