Bom dia a todos!
Agradeco a ajuda. É isso mesmo que preciso.
Mas ainda preciso de mais uma ajuda.
Neste formulario existira botoes que devem executar uma rotina ao ser clicado e
esse botao vai ser cirado junto commo formulario, portanto, como indicar no
envento onclick do mesmo a procedure ou funcao que que ele tera que executar?
Tavares
----- Original Message -----
From: Emerson Cassio
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, September 20, 2006 9:18 PM
Subject: Re: [delphi-br] Criar um form a partir de uma variavel
Amigo por acaso é isso que está procurando?
////////////////////////////////////////
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, unfuncoes, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
Procedure CriaForm (NomeForm: TFormClass);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses unit2, unit3;
{$R *.dfm}
Procedure TForm1.CriaForm (NomeForm: TFormClass);
Begin
Try
TForm (NomeForm) := NomeForm.Create(self);
TForm (NomeForm).ShowModal;
Finally
FreeAndNil(NomeForm);
End; // Try
end; // CriaForm
procedure TForm1.Button1Click(Sender: TObject);
begin
criaform(TForm2);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
criaform(TForm3);
end;
end.
//////////////////////////////////////
----- Original Message -----
From: Tavares_Tavares
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, September 20, 2006 3:14 PM
Subject: [delphi-br] Criar um form a partir de uma variavel
Boa tarde a todos.
Preciso passar para uma procedure, como um parametro, uma variavel contendo
um nome de um novo form que a rotina deve abrir.
Alguem sabe como faco para que nessa rotina o delphi permita abrir o
formulario que é igual ao nome do conteudo da variavel?
Da forma que estou fazendo nao esta correto.
Ex.:
var nomeform : TForm
Begin
Application.CreateForm( NomeForm, nomequalquer);
nomequalquer.BringToFront;
nomequalquer.ShowModal;
FreeAndNil(nomequalquer);
End;
agradeco todo ajuda
Tavares
[As partes desta mensagem que não continham texto foram removidas]
__________ Informação do NOD32 IMON 1.1764 (20060920) __________
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br
[As partes desta mensagem que não continham texto foram removidas]
__________ Informação do NOD32 1.1764 (20060920) __________
Esta mensagem foi verificada pelo NOD32 sistema antivírus.
part000.txt - esta OK
part001.htm - esta OK
http://www.eset.com.br
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
