variavel global
16/09/2004
0
desde já obrigado
Madwal
Posts
16/09/2004
Martins
Pode ser q existam outras formas...
Espero ter ajudado.
T[+]
8)
16/09/2004
Madwal
16/09/2004
Martins
Ajudaria de vc fosse mais especifico no que deseja fazer, se postasse um exemplo do q queres posso tentar lhe ajudar.
16/09/2004
Martins
Segue o código:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; Button2: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } teste:String; end; var Form1: TForm1; implementation Uses Unit2; {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin teste:=´Olá mundo, estamos com Delphi todo o tempo!´; end; procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption:=teste; end; procedure TForm1.Button2Click(Sender: TObject); begin Form2.ShowModal; end; end.
Código acima do form1, com o componente Label, um Button, ao clicar no button o label recebe o valor da viriavel (teste).
Código do Form2.
unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) Label1: TLabel; procedure FormShow(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation uses unit1; {$R *.dfm} procedure TForm2.FormShow(Sender: TObject); begin Label1.Caption:=form1.Teste; end; end.
Também com um Label, só q ao carregar, ele pega o valor da variavel (teste) do form1.
Não sei se ajuda, por isso espero q possa passar melhor a idéia do q desejas.
16/09/2004
Martins
private { Private declarations } public { Public declarations } end; var {Todas as variaveis serão vistas pelos filhos deste form} FormPai: TFormPai; Id:Integer; Nome, Cpf:String; implementation Uses Calculadora; {$R *.DFM}
Aqui suas variáveis ficaram visiveis para todos os forms filhos.
PS: Não esqueça de colocar na clausa USES dos forms filhos a unit PAI.
Espero q seja útil.
Até a próxima....
Clique aqui para fazer login e interagir na Comunidade :)