Criar Forms Modais - passando parametro - recebendo valor de

15/12/2005

2

Olá gente!

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.


Responder

Posts

15/12/2005

Ipc$

Vc pode definir uma função ShowModal overload com parâmetros.


Responder

15/12/2005

Userba

[quote:eaff2f5b93=´ipc$´]Vc pode definir uma função ShowModal overload com parâmetros.[/quote:eaff2f5b93]

Olá ipc$ !

Colega... Poderia me dar um luz de como iniciar este procedimento?
Nunca fiz isto... Não sei por onde começar :)


Responder

15/12/2005

Eniorm

camagada, mais facil vc usar um procedimento para isso, do tipo

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


Responder

15/12/2005

Ipc$

Colega... Poderia me dar um luz de como iniciar este procedimento?
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;



Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira