Hola de nuevo, este es un extracto de mi código:
procedure TForm1.presentacion1Click(Sender: TObject);
begin
OpenPictureDialog1.Execute;
end;
procedure TForm1.OpenPictureDialog1Close(Sender: TObject);
var
ns:tfilename;
begin
if OpenPictureDialog1.Execute then
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;
Donde: presentacion1Click es una opción del menú principal.
La intención es que al seleccionar esta opción en el menú se abra el cuadro de diálogo OpenPictureDialog y en el momento que de aceptar se cambie la figura de fondo.
El hecho es que así no me funciona, si alguién pudiera proponerme algo, le estaría muy agradecido. De antemano muchisimas gracias.
|