String OpenPIcDlg

Delphi

09/06/2012

Gostaria de Saber como transformo TOpenPictureDialog para String.
Jonathan Romeiro

Jonathan Romeiro

Curtidas 0

Respostas

Wesley Yamazack

Wesley Yamazack

09/06/2012

Olá Jonathan, a sua dúvida é como pegar o caminho que esta no OpenPictureDialog? Se for isso basta você fazer assim:

Listagem 1: Exemplo do OpenPictureDialog

procedure TForm1.FormCreate(Sender: TObject);
Var
  s : string;
begin
  if OpenPictureDialog1.Execute then
  begin
    s := OpenPictureDialog1.FileName;
  end;
  ShowMessage(s);

end;


Caso não seja, teria como explicar melhor?

Um abraço

Um abraço
GOSTEI 0
POSTAR