Fórum Botoes Personalizados em uma MessageDlg #348601
07/11/2007
0
Gostaria da ajuda dos amigos sobre este código.
Preciso de um MessageDlg, MessageBox, qualquer um Message que contenha 2 (dois) ou mais botões personalizados. Exemplo:
Message(´QUAL DAS OPÇÕES´), [botao1, botao2]
botao1.caption := ´Escolhi opcao 1´;
botao2.caption := ´Escolhi opcao 2´;
If botao 1 = True then
Executa seus codigos;
If botao 2 = True then
Executa seus codigos;
--//--
Pessoal pode me ajudar?
Agradeço ajuda.
Att.
Devmedia
Curtir tópico
+ 0Post mais votado
07/11/2007
{Mensagem de dois botoes com caption definidos pelo programa}
function MensagemPersonalizada(Mensagem, Titulo, Butao_Sim, Butao_Nao: String): TModalResult;
var
i:integer;
f:Tform;
begin
//aqui vc pode colocar mais botoes, basta colocar mbok, mbcancel, etc...
f:= createmessagedialog(Mensagem, 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 := Butao_Sim;
mrno: caption := Butao_Nao;
//aqui vc personaliza os botoes a mais q vc colocou
end;
f.caption := Titulo;
{É possível, também, alteraro caption da janela}
f.showmodal;
finally
f.free;
end;
Result:=f.ModalResult;
end;
ai é so tratar o resultado...
Dorivansousa
Gostei + 1
Mais Posts
07/11/2007
Massuda
Gostei + 0
07/11/2007
Devmedia
Isso é verdade.
Mas quer evitar de colocar mais Form no meu Sistema.
Tem alguma idéia de como fazer?
Att.
Gostei + 0
07/11/2007
Massuda
Gostei + 0
07/11/2007
Devmedia
{Mensagem de dois botoes com caption definidos pelo programa}
function MensagemPersonalizada(Mensagem, Titulo, Butao_Sim, Butao_Nao: String): TModalResult;
var
i:integer;
f:Tform;
begin
//aqui vc pode colocar mais botoes, basta colocar mbok, mbcancel, etc...
f:= createmessagedialog(Mensagem, 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 := Butao_Sim;
mrno: caption := Butao_Nao;
//aqui vc personaliza os botoes a mais q vc colocou
end;
f.caption := Titulo;
{É possível, também, alteraro caption da janela}
f.showmodal;
finally
f.free;
end;
Result:=f.ModalResult;
end;
Muito obrigado pela ajuda, mas como eu visualizo o resultado de qual foi pressionada ?
Att.
Gostei + 0
07/11/2007
Dorivansousa
var
m: integer;
begin
m:=MensagemPersonalizada(´Mensagem´,´Titulo´,´Botão 1´,´Botão 2´);
if m=mryes then
ShowMessage(´Informe aki os comandos do Botão 1´);
if m=mrno then
ShowMessage(´Informe aki os comandos do Botão 2´);
se tiver mais botoes no caso mbok vc compara com mrok, mbcancel compara com mrcancel e ai vai...
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)