2 replies to this topic

[1tera]

f OpenDialog1.FileName <> '' then
begin
application.MessageBox('selecionar alguma coisa entes de prosseguir')
end
else
hide;
Form4.Show;
end;

Como fazer um opendialogs ai executar somente esta funçao abaixo de ele clicar em ok, e se clicar em cancelar nao acontecer nada deixar a tela nula

Aguardo ajuda

[Mario®]

f OpenDialog1.FileName <> '' then
begin
application.MessageBox('selecionar alguma coisa entes de prosseguir')
end
else
hide;
Form4.Show;
end;

Como fazer um opendialogs ai executar somente esta funçao abaixo de ele clicar em ok, e se clicar em cancelar nao acontecer nada deixar a tela nula

Aguardo ajuda

Digite o código no evento "onclick" do botão "OK"...

[Humberto - S.O.S.]

if OpenDialog1.FileName <> '' then
begin

If Application.MessageBox (''selecionar alguma coisa entes de prosseguir','Selecione', MB_YESNO+
mb_DefButton1+MB_ICONQUESTION)=idyes then
showmessage('sim')
else
showmessage('não');

end
else
hide;
Form4.Show;
end;