Memo-Schriftgröße verändern per Tastenkombination

[Delphi.Narium]

Einfach in der Ereignisroutine der Action abfragen, ob eine bestimmte Komponente den Focus hat und dementsprechend reagieren.

Nehmen wir an, wir haben zwei Actions für die Änderung der Schriftgröße. Bei der Action für die Schriftvergrößerung ist die Eigenschaft Tag auf 1 gesetzt und bei der Action für die Schriftverkleinerung ist die Eigenschaft Tag auf -1 gesetzt.

Delphi-Quellcode:

procedure TForm1.acSchritgroesseExecute(Sender: TObject);
begin
  if not Sender is TAction then Exit;
  if Memo1.Focused then begin
    Memo1.Font.Size := Memo1.Font.Size + TAction(Sender).Tag;
  end else
  if Memo2.Focused then begin
    Memo2.Font.Size := Memo2.Font.Size + TAction(Sender).Tag;
  end else
  if Memo3.Focused then begin
    Memo3.Font.Size := Memo3.Font.Size + TAction(Sender).Tag;
  end else begin
    Self.Font.Size := Self.Font.Size + TAction(Sender).Tag;
  end;
end;

[KodeZwerg]

Danke Delphi.Narium für die neuen Erkenntisse (für mich neu).
Dank deinem Beispiel erübrigt sich meine Fragerei nach mehr Wissen und Dank .TAG feature sind jedenfalls bei mir alle Fragen wegen "Multi-Aufruf-Eines-Hotkeys-Per-TActionList" bestens geklärt, ich hoffe der TE ist auch glücklich mit dieser Lösung.

[FritzAT]

Es gibt da vielleicht nochwas...

Delphi-Quellcode:

procedure TMainForm.FormKeyDown(Sender:TObject; var Key:Word;Shift:TShiftState);
var FS: Integer;
begin
  // Strg und "+"
  if (ssCtrl in Shift) and (Key = vk_Add) then
  begin
    FS:= Memo.Font.Size; // akt. Fontsize
    if FS >= 18 then EXIT;   // max. größe
    inc(FS, 2);              // FontSize größe +2
    Memo.Font.Size:= FS;
    // ...
  end;
  // Strg und "-"
  if (ssCtrl in Shift) and (Key = vk_Subtract) then
  begin
    FS:= Memo.Font.Size;  // akt. Fontsize
    if FS = 10 then EXIT;  // min. Größe
    dec(FS, 2);   // Fontsize -2
    // ...
  end;

[KodeZwerg]

War das jetzt eine Frage oder eine Neue Erkenntis?
Du könntest Inc/Dec einsparen indem Du direkt "FS := Memo.Font.Size +2;" oder -2 angibst falls du nach einer Optimierung aus warst.