Exemplo Create Form

Delphi

17/04/2003

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
application.createForm(Tform2,form2);
Form2.ShowModal;
Form2.destroy;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
application.createForm(Tform3,form3);
Form3.ShowModal;
Form3.destroy;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
application.createForm(Tform4,form4);
Form4.ShowModal;
Form4.destroy;
end;

end.

[color=darkblue:a3e785cc89]quando vo rodar esse programa de exemplo q peguei aki mesmo no clube delphi ele cita q TForm2, TForm3, TForm4 naum estaum declarados...

como faço para declara-los?[/color:a3e785cc89]


Ang

Ang

Curtidas 0

Respostas

Ang

Ang

17/04/2003

up :cry:


GOSTEI 0
Hhhhhh

Hhhhhh

17/04/2003

faça com que essa unit ´VEJA´ as outras units:

Vá no menu [b:55eb4596c2]File [/b:55eb4596c2]-> [b:55eb4596c2]Use Unit[/b:55eb4596c2], selecione as units necessárias e depois OK.

ou

faça isso manualmente:

implementation

uses Unit2, uniX, unitY, unitZ, ...;

{$R *.dfm}



GOSTEI 0
Joilson_gouveia

Joilson_gouveia

17/04/2003

Acrescente-os através do Menu File... Use Unit... ou então digite diretamente na unit as linhas abaixo, depois do IMPLEMENTATION:

[b:9e0d7c5bd8]Uses unit2, unit3, unit4;[/b:9e0d7c5bd8]


GOSTEI 0
Ang

Ang

17/04/2003

vlw! :wink:

desculpa a vergonha, so iniciante... :oops:


GOSTEI 0
Viper0

Viper0

17/04/2003

ola galera, sou totalmente inicialne em delphi, mas ultimamente estou respirando ele e este forum, estou aprendendo muitas coisas, mas em algumas coisas basica eu tenho algumas duvidas...

por exemplo, eu ja n sabia criar um ´form2´ agora ja sei com este topico, gosta se alguem puder, ME EXPLICAR PRA Q SERVE ESSE ´DESTROY´ no final!!

obrigado desde ja


viper0!!! :evil:


GOSTEI 0
POSTAR