O que voce precisa é referenciar um ponteiro de memoria. Mas ao
objeto, nao a classe.
var
zForm: ^TForm1;
begin
zForm:= Addr(Form1);
zForm.Caption:= 'Meu caption mudou';
Firmeza?
Abraços e Sucesso!
Ricardo
--- Em delphi-br@yahoogrupos.com.br, "Leandro" <[EMAIL PROTECTED]> escreveu
>
> Bom dia,
>
> Tenho a seguinte situação:
>
> var
> zForm : TForm;
> begin
>
> zForm := Form1; //levando em conta que aqui o Form1 ja esta
criado
>
> Form1.Free;
>
> if Assign(zForm) then
> begin
> //faz algo aqui
> end;
>
> end;
>
> No "if Assign(zForm) then" eu quero verificar se o Form1 está
criado, e nao se a variavel zForm tem algum valor.
>
> Teria como?
>
> valeu,
>
> Leandro
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
