Actions RichEdit Buttons

[haentschman]

Danke...

damit funktioniert es.

Delphi-Quellcode:

constructor TfrRTFBase.Create(AOwner: TComponent; Preferences: TPreferences; FrameName: string);
begin
  inherited Create(AOwner);
...
  SetActionToControl(edtRTF);
...
end;

procedure TfrRTFBase.SetActionToControl(RichEdit: TDBRichEdit);
var
  I: Integer;
  Action: TEditAction;
begin
  for I := 0 to actlstRTF.ActionCount - 1 do
  begin
    Action := TEditAction(actlstRTF.Actions[I]);
    Action.Control := RichEdit;
  end;
end;

...ich bin wie immer begeistert.