Show de Bola Jose Carlos, era exatamente o que procurava, valeu obrigado.
Em 05/09/07, Jose Carlos A Dias Filho <[EMAIL PROTECTED]> escreveu:
>
> Faca Assim
>
> Function Mensagem(Msg,Bt1,Bt2:String):Boolean;
>
> //
>
> ****************************************************************************
> ****************
> // Gera um Mensage Box personalizado a partir do Mensagem Box YES NO
> //
>
> ****************************************************************************
> ****************
> Function Mensagem(Msg,Bt1,Bt2:String):Boolean;
> var
> I,K:Integer;
> F:TForm;
> begin
> K:=0;
> F:= createmessagedialog(Msg,mtconfirmation,[mbyes,mbno]);
> try
> for i:=0 to f.componentCount -1 do
> if f.components[i] is tbutton then
> with tbutton(f.components[i]) do
> case modalresult of
> mryes: Caption := Bt1;
> mrno: Caption := Bt2;
> end;
> f.caption := 'Mensagem do Sistema';
> K:=f.showmodal;
> finally
> if K = mryes then Result:=True
> else Result:=False;
> f.free;
> end;
> end;
>
> Sd's
>
> Dias
>
>
> _____
>
> De: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> [mailto:
> delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>] Em
> nome de Leonardo Quinino
> Enviada em: quarta-feira, 5 de setembro de 2007 16:56
> Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> Assunto: [delphi-br] Criar Função
>
>
> Pessoal, estou querendo criar uma função que funcione como uma
> pergunta, (tipo messageDlg ) onde eu passaria a pergunta, e as opções.
>
> Seria algo parecido com o que tem na antiga linguagem clipper
>
> op := Alert( ' Confirmar Isso ?', {'1-Sim'}, {'2-Talvez'}, {'3-Não
> Sei'}, {'4-Outra Opção'} )
>
> //para avaliar a resposta era só...
> if op = 0 //teclou esc
> bla bla
> endif
>
> if op = 1
> escolheu SIM
> endif
>
> if op.....
>
> Como fazer desta forma em DELPHi
>
> Analisando o MessageDlg, só consigo as respostas já prontas do delphi
> que seriam
>
> TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore,
> mbAll, mbNoToAll, mbYesToAll, mbHelp);
>
> Como faço para Criar as minhas opções personalizadas, sem ter que
> instalar pakage de terceiros.... (quero deixar o meu codigo mais
> "puro" possível) "puro = delphianamente falando"
>
> rs:)
>
> --
> Leonardo Quinino
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
Leonardo Quinino
[As partes desta mensagem que não continham texto foram removidas]
