Clipboard - Paste

[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!