Actions RichEdit Buttons

[haentschman]

Hallöle...

Ich habe einen Frame für die Eingabe von RichtText. Funktioniert auch alles... Der Frame hat Standard Actions "implementiert".

Mir ist aber aufgefallen, das die Frames (separate Instanzen) immer den gleichen Button "Status" der Action anzeigen. Gefühlt ist der Status wie global...

Ist das korrekt? Wenn nein... nach was muß ich suchen?

Danke

[Uwe Raabe]

Dem Control Property der jeweiligen Action ist das entsprechende RichEdit zugewiesen?

[haentschman]

Danke...

Leider verstehe ich das nicht. Die Action hat kein "Control"...

[Redeemer]

TEditAction.Control ist public und nicht published. Ist so eine Krux wie früher mit DoubleBuffered, was damals aus unerfindlichen Gründen auch nur public war.

[Uwe Raabe]

Wenn das Control Property nicht gesetzt ist, verwendet die Action das aktuell fokussierte TRichEdit:

Delphi-Quellcode:

function TRichEditAction.HandlesTarget(Target: TObject): Boolean;
begin
  Result := ((Control <> nil) and (Target = Control) or
    (Control = nil) and (Target is TCustomRichEdit)) and TCustomRichEdit(Target).Focused;
end;

[haentschman]

Das heißt, ich muß einmalig die Actions (Create) durchgehen und die entsprechenden mit dem RichEdit "verheiraten"?

[Uwe Raabe]

Das sollte reichen.

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