Arkadaşlar bir notepad çalışması yaptım. çalışmayı başka bir yerden indirdiğim kodlarla birlikte yaptım. yani ordan öğrendiğim kodları uygulayarak. yeni başladığım için her kodu araştırarak anlayarak gitmeye çalıştım ama anlayamadığım veya çözemediğim yerler var. yardımcı olursanız çok makbüle geçecek.
1.
Kod: Tümünü seç
procedure TForm1.dAcClick(Sender: TObject);
begin
if dosAc.Execute then
begin
memo.Lines.LoadFromFile(dosAc.FileName);
fName:=dosAc.FileName;
form1.Caption:='Notepad- '+fName;
end;
end;
yukardaki kod ile notepad içine başka bir txt dosyasını açıyorum problem yok ama fName yani dosya ismi değişkeninde dosyanın ismi değilde dosyanın klasör yolu tutuluyor. yani form caption ında görüntülenen açtığım deneme.txt dosyası değilde c:\deneme\deneme.txt şeklinde görülüyor. ben fName değişkenine dosya yolunu değil de dosya ismini nasıl alabilirim.
2.
Kod: Tümünü seç
procedure TForm1.Dzen1Click(Sender: TObject);
var
smemo:string;
begin
if memo.SelLength>0 then
begin
dzKes.Enabled:=true;
dzKopyala.Enabled:=true;
end
else
begin
dzKes.Enabled:=false;
dzKopyala.Enabled:=false;
end;
if Clipboard.HasFormat(cf_text) then
begin
dzPaste.Enabled:=true;
end
else
begin
dzPaste.Enabled:=false;
end;
smemo:=memo.Text;
if length(trim(sMemo))>0 then
begin
dzGeri.Enabled:=true;
end
else
begin
dzGeri.Enabled:=false;
end;
end;
yukardaki kod ile düzen menüsünde bulunan elemanları (kes, kopyala, yapıştır) duruma göre enable veya disable yapıyorum. hepsi çalışıyor problem yok. fakat yapamadığım şey yapıştır elemanının enable veya disable olması konusu. eğer bilgisayarın hafızasında herhangi bir yerden bir kopyalama varsa (bir dosya ismi veya ms word den herhangi bir text) yapıştır enable olarak geliyor. benim yapmak istediğimse notepad içinde herhangi bir texti kopyalarsam yapıştır enable durumuna gelsin. bunun bir yolu var mıdır?
3.
Kod: Tümünü seç
procedure TForm1.rOnlyClick(Sender: TObject);
begin
memo.ReadOnly:=not memo.ReadOnly;
rOnly.Checked:=not rOnly.Checked;
end;
yukardaki kod ile notepad in sadece yazılabilir veya okunabilir olmasını açıp kapatıyorum. yani readonly olayı. aslında
memo.ReadOnly:=true; kodu işimi görüyor fakat menüde ben read only elemanına tıkladığımda yanına bir tik koymuyor ve read only seçili hale gelmiyor. faydalandığım çalışmada ise böyle bir kod kullanmış hem tik koymak hem de readonly durumuna getirmek için. ama ben bu koddan hiçbir şey anlamadım. yukardaki kodun türkçesini anlatabilir misiniz?
biraz uzun oldu ama şimdiden teşekkürler.
