Hola roman si tienes razon pero el problemita que tengo es que al colocar mi codigo en el onShow que es el siguiente
Código Delphi
[-]procedure Tfrmvp.FormShow(Sender: TObject);
var
DriverID,DB,User,Pass,Server,Port: String;
begin
if FileExists('ConexionBD.ini') then
begin
FDPhysPgDriverLink1.VendorLib:='libpq.dll';
FDConnection1.Params.Clear;
FDConnection1.Connected:=false;
FDConnection1.Params.DriverID:='PG';
Conexion:=Tinifile.Create(ExtractFilePath(Application.ExeName)+'ConexionBD.ini');
with Conexion do
begin
DB:= Conexion.ReadString('Conexion', 'DataBase', '');
User:= Conexion.ReadString('Conexion', 'User_Name', '');
Pass:= Conexion.ReadString('Conexion', 'Password', '');
Server:= Conexion.ReadString('Conexion', 'Server', '');
Port:= Conexion.ReadString('Conexion', 'Port', '');
end;
with Conexion do
begin
FDConnection1.Params.Add( 'Server=' + Server );
FDConnection1.Params.Database:=DB;
FDConnection1.Params.UserName:=User;
FDConnection1.Params.Password:=Pass;
FDConnection1.Connected:=True;
end;
Usercontrol1.Logoff;
end
else
begin
if FileExists('Orig_ConexionBD.ini') then
begin
FDPhysPgDriverLink1.VendorLib:='libpq.dll';
FDConnection1.Params.Clear;
FDConnection1.Connected:=false;
FDConnection1.Params.DriverID:='PG';
Conexion:=Tinifile.Create(ExtractFilePath(Application.ExeName)+'Orig_ConexionBD.ini');
with Conexion do
begin
DB:= Conexion.ReadString('Conexion', 'DataBase', '');
User:= Conexion.ReadString('Conexion', 'User_Name', '');
Pass:= Conexion.ReadString('Conexion', 'Password', '');
Server:= Conexion.ReadString('Conexion', 'Server', '');
Port:= Conexion.ReadString('Conexion', 'Port', '');
end;
with Conexion do
begin
FDConnection1.Params.Add( 'Server=' + Server );
FDConnection1.Params.Database:=DB;
FDConnection1.Params.UserName:=User;
FDConnection1.Params.Password:=Pass;
FDConnection1.Connected:=True;
end;
Usercontrol1.Logoff;
end
else
begin
ShowMessage('BIENVENIDO');
FrmConfig.ShowModal;
end;
end;
end;
Veras cuando existe el archivo ini con los parametros de conexion todo bien pero cuando no existe deberia mandarme al formalario donde especifico los parametros pero me sale este error
https://ibb.co/njbktR cosa que en el onPaint no me da.