Como dar um Preview, de duas forms?
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
Curtidas 0