F�rum Evento KeyPress x Backspace #618578

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

Curtir t�pico

+ 1

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

Responder

Gostei + 1

Mais Posts

18/08/2022

Willian Rodrigues

Show Natanael!

Fiz dessa maneira, rodou certinho.
Muito Obrigado.

Responder

Gostei + 0

23/08/2022

Lucas Santato

Coloque no evento OnChange do edit

Caption := Edit.Text

Responder

Gostei + 0