按下后按钮没有变化

Question

我编写了以下代码：在“按键”按钮上将其大小更改为20 x 40，并且按钮的标题将变为“工作”

procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
begin
  Button1.Height:=20; Button1.Width:=40; Button1.Caption:='Work'
end;