Cita:
Empezado por Caral
Hola
Código Delphi [-]
procedure TForm1.BuscaryAbrir1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
CurrentFile := OpenDialog1.FileName;
SaveStyles;
Image.Picture.LoadFromFile(CurrentFile);
RestoreStyles;
end;
end;
Saludos
|
hola caral me podrias decir a que te refieres con CurrentFile por favor.