(Resolvido) InputBox

[Eder]

Ola...

Estou tentando trabalhar com o InputBox, porem tem uma coisinha que não estou sabendo tratar.

No inputBox que estou usando quando clicko no botão abre o Input e nele o usuario pode digitar o campo ou não e tem dois botões um de OK e outro de Cancela...

Se o usuario optar por cancelar...não cancela....neste caso como fiz o OK e cancela da no mesmo...

como poderia tratar esta situação?

procedure TForm1.Button1Click(Sender: TObject);
Var DataEmissaoRecibo:Tdate;
begin
DataEmissaoRecibo := StrTodate(inputbox('CP - Emissão de Recibo','Digite a Data do Recibo:(Ex.: 20/11/2008)', ''));
end;

no input o usuario tem que digitar uma data e depois clickar em ok.....beleza..mas se clickar em cancelar...ai da erro NÃO CANCELA..

Grato

Editado Dezembro 10, 2008 por Eder

[Jhonas]

Eder.. tente desta maneira:

procedure TForm1.Button1Click(Sender: TObject);
var
  NewString: string;
  ClickedOK: Boolean;
  DataEmissaoRecibo:Tdate;
begin
  NewString := '  /  /    ';
  ClickedOK := InputQuery('CP - Emissão de Recibo','Digite a Data do Recibo:(Ex.: 20/11/2008)', NewString);
  if ClickedOK then
     DataEmissaoRecibo := strtodate(NewString);

  label1.Caption := NewString;  // NewString recebe o valor digitado
end;

abraço

[Eder]

Ola..Jonas...

valeu...isto mesmo que eu precisava. :D

muito Grato

Abraço