Prueba esto
Código Delphi [-]procedure TFGesoft.GAdminItems0Click(Sender: TObject);
begin
FConsulta:= TFConsulta.Create (Application);
FConsulta.FormsStyle := fsNormal;
FConsulta.Visible := False;
FConsulta.Showmodal;
end;
__________________
...Yo naci en esta ribera del arauca vibr@d0r
Soy hermano de la espuma,
de la garza, de la rosa y del sol...
Viva Venezuela
|