Sistema em CLX

Delphi

02/03/2004

e ai meu povo blz....

a parada é a seguinte

new projet CLX
coloco 2 frms

no form 1 e ponho um button com os comandos

form2.showmodal

ai mando copilar o projeto

abre o form1 com o button
clico no button e o form2 abre

o erro :
com o form2 abreto eu aperto Alt+tab ele aparece o from1 novamente
e o 2 perde o foco ai c eu clico ou preciono qualquer tecla no form1 o 2 volta pra frente novamente

resumindo
o form2 esta se desgrudando do form1 eu nao quero usar form MDIChild
tem que ser usando o ShowModal pra que o form principal nao tenha acesso emquando outro estiver aberto


Mysys

Mysys

Curtidas 0

Respostas

Edupgarcia

Edupgarcia

02/03/2004

Você tem q tirar a criação automárica do formulário do projeto e criá-lo somente na hora de usar. Ex.:

[color=green:669829ce4a]program Project1;
uses
Forms,
Unit1 in ´Unit1.pas´ ,
Unit2 in ´Unit2.pas´ ;

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
[color=red] Application.CreateForm(TForm2, Form2);[/color:669829ce4a] Application.Run;
end.[/color]

tire o vermelho

no botão q abre o form2 coloque

[color=green:669829ce4a]procedure TForm1.Button1Click(Sender: TObject);
begin
Application.CreateForm(TForm2, Form2);
Form2.ShowModal;
Form2.Free;
end;
[/color:669829ce4a]


GOSTEI 0
Edupgarcia

Edupgarcia

02/03/2004

Você tem q tirar a criação automárica do formulário do projeto e criá-lo somente na hora de usar. Ex.:

[color=green:ce6f8b632e]program Project1;
uses
Forms,
Unit1 in ´Unit1.pas´ ,
Unit2 in ´Unit2.pas´ ;

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);[/color:ce6f8b632e]
[color=red:ce6f8b632e]Application.CreateForm(TForm2, Form2);[/color:ce6f8b632e]
[color=green:ce6f8b632e]Application.Run;
end.[/color:ce6f8b632e]

tire o vermelho

no botão q abre o form2 coloque

[color=green:ce6f8b632e]procedure TForm1.Button1Click(Sender: TObject);
begin
Application.CreateForm(TForm2, Form2);
Form2.ShowModal;
Form2.Free;
end;
[/color:ce6f8b632e]


GOSTEI 0
POSTAR