RES: [delphi-br] Criar Função

[Jose Carlos A Dias Filho]

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 [mailto:[EMAIL PROTECTED] Em
nome de Leonardo Quinino
Enviada em: quarta-feira, 5 de setembro de 2007 16:56
Para: delphi-br@yahoogrupos.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]