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 :)
