Evento KeyPress x Backspace

17/08/2022

0

Olá pessoal! estou tentando atribuir o texto de um "Edit" para a propriedade "Caption" do Form, para que a medida que o usuário for digitando, essas informações vão sendo mostradas no título do Form.
Até ai tudo beleza!! o problema é quando utilizo a tecla "Backspace" para apagar, o Caption do Form não atualiza igual o edit a medida que digita.

Segue o código:

procedure TFrm_Clifor.FANTASIAKeyPress(Sender: TObject; var Key: Char);
var vCaption, vEdit : string;

begin
vCaption := 'Clientes/Fornecedores';
vEdit := fantasia.Text;

Frm_Clifor.Caption:= vCaption + vEdit + key;

end;
Willian Rodrigues

Willian Rodrigues

Responder

Post mais votado

18/08/2022

Teste esse código:

procedure TFrm_Clifor.FANTASIAKeyPress(Sender: TObject; var Key: Char);
var
  vCaption, vEdit, vTitulo: string;
begin
  vCaption := 'Clientes/Fornecedores';
  vEdit := FANTASIA.Text;
  vTitulo := vCaption + vEdit;

  if Key <> #8 then
    Caption := vTitulo + Key
  else if FANTASIA.Text <> EmptyStr then
  begin
    Delete(vTitulo, Length(vTitulo), 1);
    Caption := vTitulo;
  end;
end;

Natanael Ferreira

Natanael Ferreira
Responder

Mais Posts

18/08/2022

Willian Rodrigues

Show Natanael!

Fiz dessa maneira, rodou certinho.
Muito Obrigado.
Responder

23/08/2022

Lucas Santato

Olá pessoal! estou tentando atribuir o texto de um "Edit" para a propriedade "Caption" do Form, para que a medida que o usuário for digitando, essas informações vão sendo mostradas no título do Form.
Até ai tudo beleza!! o problema é quando utilizo a tecla "Backspace" para apagar, o Caption do Form não atualiza igual o edit a medida que digita.

Segue o código:

procedure TFrm_Clifor.FANTASIAKeyPress(Sender: TObject; var Key: Char);
var vCaption, vEdit : string;

begin
vCaption := 'Clientes/Fornecedores';
vEdit := fantasia.Text;

Frm_Clifor.Caption:= vCaption + vEdit + key;

end;

Coloque no evento OnChange do edit
Caption := Edit.Text
Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar