Evento KeyPress x Backspace

Delphi

17/08/2022

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

Curtidas 1

Melhor post

Natanael Ferreira

Natanael Ferreira

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;
GOSTEI 1

Mais Respostas

Willian Rodrigues

Willian Rodrigues

17/08/2022

Show Natanael!

Fiz dessa maneira, rodou certinho.
Muito Obrigado.
GOSTEI 0
Lucas Santato

Lucas Santato

17/08/2022

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
GOSTEI 0
POSTAR