Formatação de Casas Decimais no TEdit

Esse comando formata para decimal os números do componente TEDIT.

Crie um novo projeto, coloque no TForm, um componente TEDIT e um componente TBUTTON. No evento onclick do componente TBUTTON adicione o código abaixo:

procedure TForm1.Button1Click(Sender: TObject); 

var

     num : integer; 

begin 

     num:=12450; 

     Edit1.text:=formatfloat('###,###,##0.00', num) 

end;

Como posso rolar um form com pgUp e pgDn

Questão. Como posso fazer funções de rolagem num componente TForm usando comandos de teclado? Por exemplo, rolar pra cima e pra baixo quando pressionar PgUp ou PgDown. Existe algum método simples de fazer isso?

Resposta. O rolamento do form é completo fazendo-se uma modificação na posição das propriedades VertScrollbar ou HorzScrollbar do form. Como mostrado no código a seguir:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

const

PageDelta = 10;

begin

  With VertScrollbar do

  if Key = VK_NEXT then

  Position := Position + PageDelta

  else if Key = VK_PRIOR then

  Position := Position - PageDelta;

end;