Hallo,
folgender Code klappt ganz gut (KeyPreview=True)

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ssCtrl in Shift then
  begin
    if (Key=187{VK_Plus}) or
       (Key=189{VK_Minus}) then
    begin
      if (Key=187{VK_Plus}) then
      begin
        Self.ScaleBy(110,100)
      end
      else
      begin
        // (Key=189{VK_Minus}) then
        //if Self.PixelsPerInch>96 then
        begin
          Self.ScaleBy(100,110)
        end;
      end;

      ResetFormData; // Grids neu laden
    end;
  end;
end;

Bei VK_MINUS möchte ich aber maximal bis zur Original-Skalierung zurück.
Da gibt es aber keinen Wert.

Irgendwie stehe ich auch dem Schlauch.
Wie merke ich mir denn die Original-Skalierung?

Führe die Skalierung einfach mit:

markieren

Code:

OriginalFaktor:=100;

...
OriginalFaktor:=OriginalFaktor/100*110;
...
OriginalFaktor:=OriginalFaktor/110*100;

Hallo,
ja sieht so aus, als ob ich mir das merken müsste.
Schade.