Schreiben in Zwischenablage

[RavenIV]

Ich kenne das auch so, dass man beim ClipBoard kein Open und Close machen muss.
Aber ein Create und Free hat's bei mir immer gebraucht.

Delphi-Quellcode:

procedure TFoTrayIcon.KopierenClick(Sender: TObject);
var
  Clip: TClipboard;
begin
  Clip := TClipboard.Create;
  if EdNummerName.SelText = '' then // ist ein Text markiert?
  begin // kein Text markiert, alles kopieren
    Clip.AsText := EdNummerName.Text;
  end
  else
  begin // nur den markierten Text kopieren
    Clip.AsText := EdNummerName.SelText;
  end;
  Clip.Free;
end;

procedure TFoTrayIcon.EinfuegenClick(Sender: TObject);
var
  Clip: TClipboard;
begin
  Clip := TClipboard.Create;
  EdNummerName.Text := Clip.AsText;
  Clip.Free;
end;