Como sobrepor um form sem utilizar MDI

19/12/2003

1

Pessoal estou com o seguinte problema, tenho um form de vendas onde eu gostaria que logo após o form estar visível, viesse um outro form de login sobprepondo o form de vendas, eu fiz mais ou menos assim

[b:15a3ca32a9]procedure[/b:15a3ca32a9] VendasForm.Show(blalallala);
[b:15a3ca32a9]begin[/b:15a3ca32a9]
Aqui eu abro as tabelas que irei utilizar inclusive a tabela de vendas
Depois dou um insert nesta tabela para que a mesma venha em branco
TblVendas.Insert;
[b:15a3ca32a9]end[/b:15a3ca32a9];

Escrevi o seguinte código no evento OnNewRecord, para chamar o form de login do vendedor:

[b:15a3ca32a9]procedure[/b:15a3ca32a9] VendasForm.TblOnNewRecord();
[b:15a3ca32a9]begin[/b:15a3ca32a9]
[b:15a3ca32a9]if not[/b:15a3ca32a9] SenhaVendedor [b:15a3ca32a9]then[/b:15a3ca32a9]
[b:15a3ca32a9]begin[/b:15a3ca32a9]
TblVendas.Cancel;
Close;
[b:15a3ca32a9]end;
end;[/b:15a3ca32a9]

Na função SenhaVendedor é onde eu chamo o form de login desta forma
[b:15a3ca32a9]function[/b:15a3ca32a9] SenhaVendedor:boolean
[b:15a3ca32a9]begin[/b:15a3ca32a9]
VendedorForm := TVendedorForm.Create(self);
[b:15a3ca32a9]try[/b:15a3ca32a9]
Result := (VendedorForm.ShowModal = mrOK);
[b:15a3ca32a9]finally[/b:15a3ca32a9]
VendedorForm.Release;
[b:15a3ca32a9] end;
end;[/b:15a3ca32a9]

O que esta acontecendo é que quando chamo o form vendas, antes do form aparecer vem a senha do vendedor, eu gostaria que fosse ao contrário, será que alguém pode me ajudar.

[]´s
E um Feliz Natal a todos

Fausto


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira