Form tipo Modal

[Renanbg 1]

Uso no sistema dois forms no cadastro, um que chamo de manutenção onde tem o grid com os dados e um que chamo de edição com os dbedits

 

No de manutenção uso showmodal, e queria usar no de edição tbm para evitar que alguem clica-se fora dele, mas tem um problema...

 

Eu testo se há campos vazios na hora de gravar e se achar da uma mensagem e o foco se volta para o campo vazio...

 

Se uso show funciona beleza, mas com showmodal da a msg e fecha o form de edição com o campo vazio...

 

ex:

 

if dbednome.text='' then  begin  Mensagem := 'Informe o funcionário!';  Application.MessageBox(PCHAR(Mensagem), 'Atenção', MB_ICONINFORMATION + MB_OK);  dbednome.setfocus;  abort;  end  else  frmdm.tbinstrucoes.post;

Algo a ser mudado no codigo, tem outra forma de fazer ou não ha o que fazer?

[marcio.theis 3]

No lugar de Abort coloque Exit.E no caso o botão não esta como ModalResult como mrOK ?

[Renanbg 1]

O botão esta com ModalResult = mrOK e agora?

[marcio.theis 3]

Coloque como mrNone, e faça algo do tipo:

 

if dbednome.text='' then	begin	Mensagem := 'Informe o funcionário!';	Application.MessageBox(PCHAR(Mensagem), 'Atenção', MB_ICONINFORMATION + MB_OK);	dbednome.setfocus;	abort;	endelse	frmdm.tbinstrucoes.post;ModalResult:=mrOk;

[Renanbg 1]

beleza, deu certo...Obrigado

[marcio.theis 3]

beleza... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Renanbg 1]

Fiz sem usar a linhaModalResult:=mrOk;e deu certo, poderia deixar sem essa linha ou tem algum problema?

[marcio.theis 3]

Pode deixar sem mesmo...Não sei como é sua tela, por isto coloquei a linha... :D

[Renanbg 1]

beleza marcio...mais uma coisa...Eu ja vi em VB, n sei se da p fazer em delphiAlgum comando que n deixe arrastar a janela..quero ela fixa...tem?

[marcio.theis 3]

Tem como fazer sim, você precisa ancorar ele, uma das formas pode ver neste link.

[Renanbg 1]

Show, fiz aqui e deu certo...Obrigadão pelas dicas...

[marcio.theis 3]

beleza... coisa boa que deu certo... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif