Topic: increase or decrease font size at run time
procedure frmNumber_OnKeyDown (Sender: TObject; var Key: Word; Shift, Alt, Ctrl: boolean);
begin //*** Proc 905 - aumenta e diminui o tamanho da fonte com teclas de atalho
if (Key = ORD('A')) and Shift and Ctrl then
begin
frmNumber.ComboBox1.Font.size := frmNumber.ComboBox1.Font.size + 1;
frmNumber.edNumber.Font.size := frmNumber.edNumber.Font.size + 1;
frmNumber.Memo1.Font.size := frmNumber.Memo1.Font.size + 1;
end;
if (Key = ORD('D')) and Shift and Ctrl then
begin
frmNumber.ComboBox1.Font.size := frmNumber.ComboBox1.Font.size - 1;
frmNumber.edNumber.Font.size := frmNumber.edNumber.Font.size - 1;
frmNumber.Memo1.Font.size := frmNumber.Memo1.Font.size - 1;
end;
end;
begin
//*** ATENÇÃO: keypreview também pode ser acionado em PROPRIEDADES
frmNumber.KeyPreview := True; //*** Proc 905 - aumenta e diminui o tamanho da fonte com teclas de atalho
end.