Por favor , me ajudem com esse IF

Delphi

23/10/2003

procedure TForm1.C_face_cClick(Sender: TObject);
begin
Application.CreateForm(TForm4, Form4);
if Form4.ShowModal = mrOK then
C_face_c := novo_valor.text
end;

Bom pessoal, o que quero aqui é simplismente quando eu clicar no botão OK do formulario, alterar o valor do meu label para o novo valor que está no formulário.
Dessa forma, não funcionou, existe alguma outra maneira.
Não pode ser no evento OnClick porque como vcs podem ver são dois formularios.
Valeu


Acardoso

Acardoso

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

23/10/2003

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 ?


GOSTEI 0
Brnz

Brnz

23/10/2003

C_face_c.Caption deve funcionar...


GOSTEI 0
Claudio Quevedo

Claudio Quevedo

23/10/2003

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;


GOSTEI 0
Acardoso

Acardoso

23/10/2003

[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....


GOSTEI 0
Claudio Quevedo

Claudio Quevedo

23/10/2003

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.


GOSTEI 0
Michel_prog

Michel_prog

23/10/2003

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


GOSTEI 0
Beppe

Beppe

23/10/2003

Tenta assim:
with TForm4.Create(Application) do
try
  if ShowModal = mrOK then
    C_face_c := novo_valor.text;
finally
  Free;
end;


Ataliba


GOSTEI 0
POSTAR