Fórum Como dar um Preview, de duas forms? #165027
06/06/2003
0
No botão preview:
procedure TDeloitteMainForm.PreviewBTClick(Sender: TObject);
begin
if DadosQRForm = NIL then
Application.CreateForm(TDadosQRForm, DadosQRForm);
DadosQRForm.Preview;
end;
[color=red:59c78e11fe][b:59c78e11fe]Tudo certo! Mas como dar o segundo preview?[/b:59c78e11fe][/color:59c78e11fe]
Tentei repetir o if para o Dados2QRForm, mas não dá certo onde erro!
O erro quando coloco o segundo if é este:
[Error] DeloitteMain.pas(1912): Undeclared identifier: ´Preview´
Sem mais...
procedure TDeloitteMainForm.PreviewBTClick(Sender: TObject);
begin
if DadosQRForm = NIL then
Application.CreateForm(TDadosQRForm, DadosQRForm);
DadosQRForm.Preview;
end;
[color=red:59c78e11fe][b:59c78e11fe]Tudo certo! Mas como dar o segundo preview?[/b:59c78e11fe][/color:59c78e11fe]
Tentei repetir o if para o Dados2QRForm, mas não dá certo onde erro!
O erro quando coloco o segundo if é este:
[Error] DeloitteMain.pas(1912): Undeclared identifier: ´Preview´
Sem mais...
Wagnerg
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)