Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); var Key: Word; begin Key := vk_f1; Edit4KeyDown(Sender, Key, []); end;
procedure TForm1.Button1Click(Sender: TObject); var Key: Word; begin Key := vk_f1; Edit4KeyDown(Sender, Key, []); end;