Código Delphi [-] procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Key='+' then begin Key:=#0; Perform(CM_DialogKey,VK_TAB,0); end end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Key='+' then begin Key:=#0; Perform(CM_DialogKey,VK_TAB,0); end end;