Formumuza Standart sekmesinden:
-
[*] 1 tane Tlabel ve 2 Tbutton ekleyelim.
Dialogs sekmesindende > Topendialog ekleyelim.
1. butonun onClick olayına:
[*]
-
if opendialog1.execute then // open dialog çalıştırılınca
label1.caption := opendialog.filename; // label ın caption özelliğine seçilen dosyanın yolunu yazdır...
// Dosya yolunu uzun olarak aldık..
-
2. butonun onClik olayına da aşağıdaki kodu yazıyoruz:
-
Label1.Caption := ExtractFileName(Label1.Caption);--
-
[*] 1 tane Tlabel ve 2 Tbutton ekleyelim.
Dialogs sekmesindende > Topendialog ekleyelim.
1. butonun onClick olayına:
[*]
-
if opendialog1.execute then // open dialog çalıştırılınca
label1.caption := opendialog.filename; // label ın caption özelliğine seçilen dosyanın yolunu yazdır...
// Dosya yolunu uzun olarak aldık..
-
2. butonun onClik olayına da aşağıdaki kodu yazıyoruz:
-
Label1.Caption := ExtractFileName(Label1.Caption);--