fechar formulario

Delphi

12/05/2004

Bom dia

porque nao consigo afzer isso

procedure TForm3.FormShow(Sender: TObject);
begin
showmessage(´teste´);
close;
end;

queria abrir um formulario executar uma linha de codigo qualquer e ja fechar

como poderia fazer isso
alguem pode me dar uma luz

Muito Obrigada
Abraços
Andreia


Andreya

Andreya

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

12/05/2004

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowMessage(´teste´);
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  Form1.Close;
end;



GOSTEI 0
Andreya

Andreya

12/05/2004

procedure TForm1.FormActivate(Sender: TObject);
begin
Form1.Close;
end;


infelizmente nao fecha

mesmo assim Muito Obrigada

Abraços
Andreia


GOSTEI 0
Jackson Gomes

Jackson Gomes

12/05/2004

Use apenas Close;, e não Form1.Close;


GOSTEI 0
Lucas Silva

Lucas Silva

12/05/2004

infelizmente nao fecha


Com o código que te passei acima, fecha o form sim.
Dê uma olhada lá.


GOSTEI 0
Fer_nanda

Fer_nanda

12/05/2004

queria abrir um formulario executar uma linha de codigo qualquer e ja fechar


se vc só quer executar alguma instrução desse outro formulário vc não precisa abrir, executar e fechar.. se ele já estiver criado vc só precisa se referenciar ao evento desejado. Por exemplo:

qdo clicar num determinado botão (form1) vc quer q apareça a mensagem q está no evento onshow do form2, então vc só precisa fazer isso
procedure TForm1.Button1Click(Sender: TObject);
begin
//   Form2 := TForm2.Create(self); --> caso o form2 não esteja sendo criado automaticamente

  form2.OnShow(self);
end;

e é claro... precisa adicionar a unit do form2 no form1

espero ter ajudado


GOSTEI 0
POSTAR