Showmessage

[Guest - William -]

Ola,

Existe no Delphi uma janela do tipo do ShowMessage, mas que serve pra entrar com dados? Se existir qual é sua estrutura?

É que eu tenho um formulario com varios label's e eu quero quando eu clicar com o mouse um um determinado label abre-se uma janela desse tipo pra eu entra com um valor especifico.

Obrigado.

[Progr'amador]

Olá,

Ae vai um exemplo.

procedure TForm1.Label1Click(Sender: TObject);
var
  txtStr : string;
  TituloStr : string;
begin
  TituloStr := 'Teste';
  InputQuery(TituloStr, 'Digite o que quizer', txtStr );
  Label1.Caption := txtStr;
end;

Abs. Progr'amador.