Text im label Markieren

[marianalbers]

Gibt es irgeneine Möglichkeit den Text in einem Label
markierbar zu machen z. B. zum kopieren in die
Zwischenablage? ?(

[Manu]

Soweit ich weiß nicht, ich hab jetzt mal schnell ein bißchen rumprobiert und auch nix gefunden, jetzt schau ich mal in der Hilfe, vielleicht find ich ja noch was.

[Nachtrag]
Also in der Hilfe steht zwar was über Texte markieren und Zwischenablage usw. aber leider nur für Memo und Editfelder.
Es scheint also nciht zu gehen, ich hab das aber auch noch nie in einem Programm gesehen.

[marianalbers]

Gibt es denn ne Möglichkeit in diesem Text hier
statt einem Label als Empfänger ein Edit als Empfänger
einzusetzen:


procedure TForm1.Button1Click(Sender: TObject);
var
wurzel: string;
begin
wurzel:=edit1.Text;
if wurzel<= &acute;-1&acute; then
showmessage(&acute;Geht nicht !!&acute;)
else
begin
Label1.Caption := FloatToStr(sqrt(StrToFloat(Edit1.Text)));


end;

end;

[Manu]

Ersetze einfach in der letzten zeile Label1.Caption mit Edit1.Text

Selbstverständlich muss das Editfeld dann schon existieren. :)