RichEdit und rechte Maustaste (Kontextmenü)

[Sourcemaker]

Hi,

probiere mal auf der Main-Form ein Kontextmenü mit den entsprechenden Funktionen zu erzeugen dieses
wird dann für alle Komponenten genommen die nicht explizit ein anderes zugewiesen haben.

Hier der Quellcode für die Menüpunkte

Delphi-Quellcode:

procedure TFMain.miKopierenClick(Sender: TObject);
begin
   TRichEdit(Screen.Activeform.ActiveControl).CopyToClipBoard;
end;

procedure TFMain.miEinfuegenClick(Sender: TObject);
begin
   TRichEdit(Screen.Activeform.ActiveControl).PasteFromClipBoard;
end;

procedure TFMain.miAusschneidenClick(Sender: TObject);
begin
   TRichEdit(Screen.Activeform.ActiveControl).CutToClipBoard;
end;

procedure TFMain.miAllesmarkierenClick(Sender: TObject);
begin
   TRichEdit(Screen.Activeform.ActiveControl).SelectAll;
end;

procedure TFMain.miLoeschenClick(Sender: TObject);
begin
   TRichEdit(Screen.Activeform.ActiveControl).ClearSelection;
end;

procedure TFMain.miRueckClick(Sender: TObject);
begin
   TRichEdit(Screen.Activeform.ActiveControl).Undo;
end;

procedure TFMain.StdKontextMenuPopup(Sender: TObject);
begin
   miRueck.Enabled        := TRichEdit(Screen.Activeform.ActiveControl).CanUndo;
   miLoeschen.Enabled     := TRichEdit(Screen.Activeform.ActiveControl).SelLength > 0;
   miAusschneiden.Enabled := miLoeschen.Enabled;
   miKopieren.Enabled     := miLoeschen.Enabled;
   miEinfuegen.Enabled    := Clipboard.HasFormat(CF_TEXT);
end;

Grüße

Frank