Duvida easy;

[guinho10 0]

eu queria criar um diretorio e se esse diretorio existir para o form2 dar um show modal mas num funciona eu estava tentando assim

 

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[SaYaDiN² 1]

lol, parece que tá certo, dá erro em que?

[Ryokusei 28]

Verifique se o form 2 existe antes.

 

Tente isso:

 

procedure TForm1.Button1Click(Sender: TObject);

var

s:String;

i: Integer;

begin

s:=('C:\nova pasta');

ForceDirectories(s);

if fileexists(s) then

for i:=0 to Application.ComponentCount-1 do

if (Application.Components is TForm2) then

(Application.Components as TForm2).ShowModal;

[guinho10 0]

Esse comando faz com que crie um diretorio no C:\nova pasta e se ele ja foi criado o form2 se abrir.mas o problema e que o form2 n abre

 

E ryokusei eu ja tinha tentado isso e n deu certo com component count o problema e que o form2 n abre se o arquivo existir

 

Thanks ;)

[SaYaDiN² 1]

Invez de ShowModal, ponhe Show ;D

[guinho10 0]

n funfo com o show ;)

[Ryokusei 28]

Bem como eu não tenho seu source nem sei se vc já criou o form2, mas tenta isso aki:

 

procedure TForm1.Button1Click(Sender: TObject);

var

s:String;

begin

s:=('C:\nova pasta');

ForceDirectories(s);

if DirectoryExists(s) then

with TForm2.Create(Self) do begin

Showmodal;

Free;

end

else Application.MessageBox('Erro ao criar pasta', 'Erro', mb_iconerror);

end;

[guinho10 0]

Bem como eu não tenho seu source nem sei se vc já criou o form2, mas tenta isso aki:

 

procedure TForm1.Button1Click(Sender: TObject);

var

s:String;

begin

s:=('C:\nova pasta');

ForceDirectories(s);

if DirectoryExists(s) then

with TForm2.Create(Self) do begin

Showmodal;

Free;

end

else Application.MessageBox('Erro ao criar pasta', 'Erro', mb_iconerror);

end;

 

 

Isso eu sei que ele vai abrir com a condiçao sendo falsa ou nao eu queria que ele abrisse o form 2 com a condiçao sendo Falsa ou seja se o arquivo ja existir

[Ryokusei 28]

procedure TForm1.Button1Click(Sender: TObject);

var

s:String;

begin

s:=('C:\nova pasta');

if DirectoryExists(s) then

with TForm2.Create(Self) do begin

Showmodal;

Free;

Exit;

end

else ForceDirectories(s);

end;