Thema: Delphi Actions RichEdit Buttons

Einzelnen Beitrag anzeigen

Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.021 Beiträge
 
Delphi 12 Athens
 
#5

AW: Actions RichEdit Buttons

  Alt 25. Jan 2023, 12:03
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;
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat