Einfügen in SynEdit geht nicht

[marabu]

Guten Morgen,

das SynEdit Control kommt prima mit den ClipBoard-ShortCuts zurecht, wenn du es nur zulassen würdest:

Delphi-Quellcode:

procedure TForm1.Einfgen1Click(Sender: TObject);
begin
  SynEdit.PasteFromClipboard;
end;

Mit diesem Code für dein MenuItem Einfgen1 und die Zuordnung des ShortCut Strg+V hast du effektiv alle Einfüge-Operationen auf deine Komponente SynEdit umgeleitet. Strg+V funktioniert dann auch nicht mehr in den anderen Edit Controls deiner Form.

Es gibt jetzt zwei Wege für dich aus dem Dilemma.

Du schickst die abgefangene Nachricht an das richtige Control weiter:

Delphi-Quellcode:

procedure TForm1.Einfgen1Click(Sender: TObject);
begin
  SendMessage(GetFocus, WM_PASTE, 0, 0);
end;

Oder du fügst die entsprechenden Standardaktionen aus dem Abschnitt Bearbeiten in deine ActionList ein und weist diese Actions deinen entsprechenden MenuItems zu.

Grüße vom marabu