Criar Forms Modais - passando parametro - recebendo valor de
15/12/2005
0
Preciso criar dinamicamente um form MODAL
ja passando alguns parametros para ele
e ao fecha-lo receber de volta um valor como resultado.
Não estou sabendo como fazer :(
A ideia seria criar/chamar um form assim:
form_mensagem.showmodal(titulo, mensagem: string; bt1, bt2, bt3 : string) : integer
então...
- titulo -> apareceria em um caption superior...
- mensagem -> aparecia num memo (readonly)
- btn1, btn2, btn3, receberia -> 1,2,3 (receberia o caption)
_ se o usuario clicasse em btn1 fecharia e retornar 1, btn = 2, etc...
Na verdade é um form para expor mensagens...
O diferencial é que teria um botão para o usuario
gravar o conteudo do memo :)
penso em fazer a chamada assim
if form_mensagem.showmodal(p1, p2, p3, p4, p5) = 1 then
(clicou no botao 1 ... faz isto)
Lógico amigos...
que não quero a receita do bolo...
só quero uma luz de como criar forms,
passando parametro e recebendo valores deles.
Userba
Posts
15/12/2005
Userba
Olá ipc$ !
Colega... Poderia me dar um luz de como iniciar este procedimento?
Nunca fiz isto... Não sei por onde começar :)
15/12/2005
Eniorm
function Mensagem(titulo, mensagem: string; bt1, bt2, bt3 : string) : integer
dai apos vc criar o form,
Application.CreateForm....
vc passa os valores dos parametros para o form, e depois disso vc usa o ShowModal
ja fiz isso
15/12/2005
Ipc$
function ShowModal(titulo, mensagem: string; bt1, bt2, bt3 : string):Integer; overload; function TForm_mensagem.ShowModal(titulo, mensagem: string; bt1, bt2, bt3 : string):Integer; begin ... // utilização dos parâmetros Result := ShowModal; end;
Clique aqui para fazer login e interagir na Comunidade :)