Kullanıcı

Hoşgeldiniz Ziyaretçi. Lütfen giriş yapın veya kayıt olun.
E-posta adresinize aktivasyon iletisi gelmediyse lütfen buraya tıklayın.
03 Eylül 2010 13:53:26

Kullanıcı adınızı, şifrenizi ve aktif kalma süresini giriniz

Sohbet Penceresi

Son 5 Notlar:

fariz35
25 AÄŸustos 2010 16:11:57
slm beyler
alvin
27 AÄŸustos 2010 10:00:56
arkadaşlar delphi ile fax nasıl gönderilir şeklinde konuya cevaplarınızı bekliyorum...
  XLG
01 Eylül 2010 17:00:37
arkdaÅŸlar admin kim ya
  XLG
01 Eylül 2010 17:00:55
bi maruzatım olacak ta
aligel54
Bugün, 11:14:44
Arkadaşlar SUBHAN adlı arkadaşımızdan haberi olan var mı? Bir yıldır hiç siteye girmemiş? Sitesi de borçtan kapanmış. Başına bir şey mi geldi?

Show 50 latest
« önceki sonraki »
Sayfa: [1]   AÅŸağı git

Gönderen Konu: listbox DbClick  (Okunma sayısı 833 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı bymerag

  • Kıdemli Ãœye
  • *****
  • Ä°leti: 296
  • Rep: +1/-1
  • Cinsiyet: Bay
listbox DbClick
« : 06 Mayıs 2009 21:47:33 »
Kod: (delphi) [Seç]
procedure TfrMain.ListBox1DblClick(Sender: TObject);
var SelectedFile : string;
    Rec          : TSearchRec;

begin
SelectedFile := ListBox1.Items.Strings[ListBox1.ItemIndex];
if FindFirst(SelectedFile, faAnyFile, Rec) = 0 then
 begin
 
  try
    lblFile.Caption:=SelectedFile;
    lblName.Caption:=rec.Name;
    lblSize.Caption:=Format('%d bytes',[rec.Size]);
    lblModified.Caption:=DateToStr(FileDateToDateTime(rec.Time));
    lblShortName.Caption:=rec.FindData.cAlternateFileName;
   
  finally
   
  end;
  FindClose(Rec)
 end;
end;


yukaridaki Kod listbox'un DbClick olayı ile çalışıyor görüldüğü gibi
Benimi stediğim bu kodu bir butona göre uyarlamak butonun oncilck olayına kodu kopyaladığımda hata veriyor.Bunun sebebide listbox ta herhangi bir satirin seçilmemiş olması
sebebi belli ama çözümü bulamadım.
Sözün özü  bu kodu buton'un  click olayında çalışması için deÄŸiÅŸtirmem lazım.

Yardımlarınızı bekliyorum..
Kayıtlı

Çevrimdışı barutali

  • Global Moderatör
  • *****
  • Ä°leti: 1.340
  • Rep: +38/-0
  • Cinsiyet: Bay
  • Falan filan ...
Ynt: listbox DbClick
« Yanıtla #1 : 27 Haziran 2009 22:03:42 »
Kod: (delphi) [Seç]
SelectedFile := ListBox1.Items.Strings[ListBox1.ItemIndex];

yukarıda dediğin şeyi açıklayayım sana : selectedfile değişkenim listboxda hangi item seçiliyse onun değerini alsın
ama sen hiç bişey seçmediğin için selectedfile neyi alacak ?

*******************************************************
Kod: (delphi) [Seç]
SelectedFile := ListBox1.Items.Strings[0];

bende diyorumki selectedfile listbox da 1. sırada ne varsa onun deÄŸerini alsın... (0 1 2 3... die listeler ..  0 = 1. oluyor)

***************************************************************

aşağıdaki gibi düzenlersen sorun ortadan kalkıcaktır ....

Kod: (delphi) [Seç]

procedure TForm1.Button1Click(Sender: TObject);
var SelectedFile : string;
    Rec          : TSearchRec;

begin
SelectedFile := ListBox1.Items.Strings[0]; /// değişen satır...
if FindFirst(SelectedFile, faAnyFile, Rec) = 0 then
 begin

  try
    lblFile.Caption:=SelectedFile;
    lblName.Caption:=rec.Name;
    lblSize.Caption:=Format('%d bytes',[rec.Size]);
    lblModified.Caption:=DateToStr(FileDateToDateTime(rec.Time));
    lblShortName.Caption:=rec.FindData.cAlternateFileName;

  finally

  end;
  FindClose(Rec)
 end;

end;




Kayıtlı
En İyi Öğrenme Metodu Yaparak ve Yaşayaraktır.
M.Kemal ATATÃœRK

Çevrimdışı Kocaturk

  • Administrator
  • *****
  • Ä°leti: 2.474
  • Rep: +56/-5
  • Cinsiyet: Bay
    • Delphi Dünyası
Ynt: listbox DbClick
« Yanıtla #2 : 27 Haziran 2009 22:35:58 »
Yada ListBox ta bir Item i seçime zorla,

Kod: (delphi) [Seç]
...
...
var SelectedFile : string;
    Rec          : TSearchRec;

begin

if listbox1.ItemIndex < 0 then listbox1.ItemIndex := 0;

SelectedFile := ListBox1.Items.Strings[ListBox1.ItemIndex];
if FindFirst(SelectedFile, faAnyFile, Rec) = 0 then
 begin
...
...

yada ListBox ın bulunduğu Form un OnShow olay işleyicisinde ListBox ın ItemIndex özelliğini sıfır a eşitleyerek formun her açılışında ListBox ta ilk ögenin seçili olmasını sağlayabilirsin.
Veya ListBox ı kod ile dolduruyorsan doldurma işleminin sonunda ItemIndex i sıfıra eşitleyebilirsin, böylece Button a basınca problem olmaz.
Kayıtlı

Çevrimdışı barutali

  • Global Moderatör
  • *****
  • Ä°leti: 1.340
  • Rep: +38/-0
  • Cinsiyet: Bay
  • Falan filan ...
Ynt: listbox DbClick
« Yanıtla #3 : 27 Haziran 2009 22:37:34 »
Alıntı yapılan: Kocaturk - 27 Haziran 2009 22:35:58
Yada ListBox ta bir Item i seçime zorla,

Kod: (delphi) [Seç]
...
...
var SelectedFile : string;
    Rec          : TSearchRec;

begin

if listbox1.ItemIndex < 0 then listbox1.ItemIndex := 0;

SelectedFile := ListBox1.Items.Strings[ListBox1.ItemIndex];
if FindFirst(SelectedFile, faAnyFile, Rec) = 0 then
 begin
...
...

yada ListBox ın bulunduğu Form un OnShow olay işleyicisinde ListBox ın ItemIndex özelliğini sıfır a eşitleyerek formun her açılışında ListBox ta ilk ögenin seçili olmasını sağlayabilirsin.
Veya ListBox ı kod ile dolduruyorsan doldurma işleminin sonunda ItemIndex i sıfıra eşitleyebilirsin, böylece Button a basınca problem olmaz.


@kocatürk hocam işte bu yüzden program yazmayı seviyorum her programcının hayal gücü farklı :)
Kayıtlı
En İyi Öğrenme Metodu Yaparak ve Yaşayaraktır.
M.Kemal ATATÃœRK

Çevrimdışı Kocaturk

  • Administrator
  • *****
  • Ä°leti: 2.474
  • Rep: +56/-5
  • Cinsiyet: Bay
    • Delphi Dünyası
Ynt: listbox DbClick
« Yanıtla #4 : 27 Haziran 2009 22:41:44 »
barutali haklısın, daha bir çok alternatif cevap olabilir. Bu arada cevaplar için teşekkürler.
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »