ola pessoal encontrei na net essa função que deixa uma caixa de messagem pessonalizada
o problema é que eu não to conseguindo usar, alguém pode dar uma dica?
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;
Pergunta
vms
ola pessoal encontrei na net essa função que deixa uma caixa de messagem pessonalizada
o problema é que eu não to conseguindo usar, alguém pode dar uma dica?
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.