İmage nesnesine eklenen resmin ismi

[erdogan_ozkaya]

arkadaşlar;
İmage nesnesine resim eklemek için aşağıdaki kodu kullanıyorum

Kod: Tümünü seç

procedure TForm1.BitBtn2Click(Sender: TObject);
 var
 yol:AnsiString;
begin
 if OpenPictureDialog1.Execute Then
 begin
  yol:=OpenPictureDialog1.FileName;
  Image1.Picture.LoadFromFile(yol);
  Edit1.Text:=(yol);
  Edit3.Text:=OpenPictureDialog1.FileName;
  end;
end;

kod çalışıyor sadece istediğim formun üzerindeki edit nesnesine seçtiğim dosyanın adını ve uzantısını eklemesi
Edit3.Text:=OpenPictureDialog1.FileName; bu kodla ('C:\Documents and Settings\Erdoğan ÖZKAYA\Desktop\Kopya.bmp') bu şekide geliyor ama ben sadece Kopya.bmp Yazmasını istiyorum

Teşekkürler

[sabanakman]

Kod: Tümünü seç

Edit3.Text:=ExtractFileName(OpenPictureDialog1.FileName);

[erdogan_ozkaya]

teşekkür ederim