Por favor , me ajudem com esse IF

Question

procedure TForm1.C_face_cClick(Sender: TObject);begin  Application.CreateForm(TForm4, Form4);  if Form4.ShowModal = mrOK then  C_face_c := novo_valor.textend;Bom pessoal, o que quero aqui � simplismen...

Marcelo Saviski · Answer

O que � C_face_c ?Uma variavel ou o label do qual falou?O correto n�o seria: C_face_c  := Form4.novo_valor.text ?...

Brnz · Answer

C_face_c.Caption deve funcionar......

Claudio Quevedo · Answer

Pergunte pela propriedade ModalResult do Form. Assim:

procedure TForm1.C_face_cClick(Sender: TObject);
begin
Application.CreateForm(TForm4, Form4);
Form4.ShowModal <-----
if Form4.ModalResult = mrOK then <-----
C_face_c := novo_valor.text (onde est� o componente novo_valor???)
end;

Acardoso · Answer

[quote:b5f834a666=�Claudio Quevedo�]Pergunte pela propriedade ModalResult do Form. Assim:

procedure TForm1.C_face_cClick(Sender: TObject);
begin
Application.CreateForm(TForm4, Form4);
Form4.ShowModal <-----
if Form4.ModalResult = mrOK then <-----
C_face_c := novo_valor.text (onde est� o componente novo_valor???)
end;[/quote:b5f834a666]

Quando clico no bot�o OK do form, n�o acontece nada, ele fica parado na linha do ShowModal....

Claudio Quevedo · Answer

Quando o delphi executa a linha Form4.ShowModal o Form4 n�o � exibido?Verifique se ele (o form4) est� no auto create, se estiver remova-o....

Michel_prog · Answer

Caro amigo a func da rotina if � funcina assim

var
d:classe desejada
begin
if ( > variavel) then
//se variavel for maior ent�o
label1.caption:=�Variavel maior�
else
//sen�o
label1.caption:=�Variavel menor�;
end;
end.

//Importante lebrar que se vc for colocar o else na linah acima n�o podera ter( ;) ok

espero ter ajudado

Beppe · Answer

Tenta assim:[code:1:4d550a6ff8]with TForm4.Create(Application) dotry  if ShowModal = mrOK then    C_face_c := novo_valor.text;finally  Free;end;[/code:1:4d550a6ff8]Ataliba...

F�rum Por favor , me ajudem com esse IF #190437