Clipboard - Paste

[DeddyH]

Wenn ich mich nicht sehr irre, beherrscht das TEdit Zwischenablage-Operationen bereits von Haus aus und verfügt auch über ein entsprechendes Kontextmenü. Von daher ist Dein Code nicht nur unnötig, sondern doppelt gemoppelt. Klappt es, wenn Du ihn mal komplett auskommentierst?

[Danny92]

Ach!
Natürlich ziemlich dumm, wenn man den Tastendruck im OnKeyPress-Ereignis wieder abfängt:

Code:

procedure TForm1.EdGl1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9','x','y','*','/','+','-','=',Char(VK_BACK),Char(VK_RETURN)]) then Key:=#0
  else if (Key=Char(VK_RETURN)) and (Length(EdGl2.Text)>0) then BtBerechnen.Click
end;

Und dies hatte ich in der anderen Form nicht, daher funktionierte der Paste-Befehl auch ohne mein manuelles Wiederhinzutun
Haach, ist das alles kompliziert

Ja, Auskommentieren hat geholfen, nur im falschen Ereignis
Vielen Dank!