Ergebnis der Suchanfrage

• Forum: Algorithmen, Datenstrukturen und Klassendesign

  AW: Clipboard - Paste

   
    by Danny92, 15. Aug 2015
  Ach!
  Natürlich ziemlich dumm, wenn man den Tastendruck im OnKeyPress-Ereignis wieder abfängt:
  procedure TForm1.EdGl1KeyPress(Sender: TObject; var Key: Char);
  begin
  if not (Key in ) 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...
• Forum: Algorithmen, Datenstrukturen und Klassendesign

  Clipboard - Paste

   
    by Danny92, 15. Aug 2015
  Wie bei den meisten üblichen Programmen, möchte ich auch in eines meiner Fenster in einem Editfeld Text aus der Zwischenablage mittels Strg+V hineinkopieren, im folgenden KeyDown-Ereignis der TEdit-Komponente:
  
  procedure TForm1.EdEingabeKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var
  z: string;
  
  begin
  if (Shift = ) and (Key=ord('C')) then...