Muchas grasias Chris por tu ayuda, lo hice como me dijo y no hubo problema. En cuanto al codigo de ecfisa:
Código Delphi
[-]procedure TForm1.OpenDialog1Show(Sender: TObject);
begin
if TOpenDialog(Sender).Tag = 1 then
SetDlgItemText(GetParent(OpenDialog1.Handle), IDOK, PChar('&Abrirlo'))
else
SetDlgItemText(GetParent(OpenDialog1.Handle), IDOK, PChar ('&Guardarlo'));
end;
No tengo el evento OnShow. lo puse en la linea que habia comentado en mi procedimiento y no hace nada. Sigue saliendo el boton con el texto de Abrir.
Código Delphi
[-]case Accion of
Salva: begin
SQL := 'Backup database DB to disk = :File';
OpenDialog.Title := 'Guardar Salva.';
MSG := 'La Salva se realizó satisfactoriamente';
SetDlgItemText(GetParent(OpenDialog.Handle), IDOK, PChar ('&Guardar'));
end;
En espera de su respuesta,
Muchas grasias por su ayuda .