-----------------OnClick ----------------------------------
procedure TForm1.Presupuestos1Click(Sender: TObject);
begin
IF(FORM1.qlogin['PRESUPUESTO'] ='True') then //permisos usuario
BEGIN
form1.Enabled:=false;
if presu = nil then
presu := Tpresu.Create(Application);
try
presu.Show;
except
FreeAndNil( presu );
end;
// <<<---- Con esto me funciona pero no me carga los sql---->>>
//If Presu=nil then
//begin
//Application.CreateForm(TPresu, Presu);
//end
//else
//begin
//presu.Destroy;
//Application.CreateForm(TPresu, Presu);
//end;
//presu.show;
// <<<-------------- Fin comentarios --------------->>>
END
else
showMesSage('No tiene permisos para acceder a esta zona.');
end;
---------------OnCreate---------------------------
procedure TPresu.FormCreate(Sender: TObject);
begin
SysLocale.MiddleEast := True;
valor:=0;
Edit1.BiDiMode := bdRightToLeft;
.
.
.
.
Edit65.BiDiMode := bdRightToLeft;
qobj.Active:=true; // Por si no cargaba la consulta sql
qobj.sql.Clear;
qobj.SQL.add('Select * from objur order by nombre');
qobj.Open; // fin consulta sql
end;
-----------------On close-----------------------------------
procedure TPresu.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.Enabled:=true;
Action := caFree;
end;
Siento causar tantas molestias
