TListBox Nesnesini Hint Gibi Göstermek

Yazdığınız makaleleri ve üyelerimizin işine yarayacağını düşündüğünüz kodlarınızı gönderebilirsiniz. Bu foruma soru sormayın!
Cevapla
RamazanG
Üye
Mesajlar: 73
Kayıt: 16 Tem 2010 02:38

TListBox Nesnesini Hint Gibi Göstermek

Mesaj gönderen RamazanG » 26 Eyl 2010 09:24

Makale: Zarko Gajic.
Çeviri: Ramazan Gülbahar.

Bazen listboxın genişliğinden daha uzun metinleri göstermek isteriz, ancak bu durumda metnin birkısmı görünmez. Çözüm ise sığmayan metni hint olarak göstermektir. ShowHints özelliğini True yapın.

OnMouseMove olayna aşşağıdaki kodu yazın:

Kod: Tümünü seç

 procedure TForm1.ListBox1MouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer) ;
 var lstIndex : Integer ;
 begin
   with ListBox1 do
   begin
    lstIndex:=SendMessage(Handle, LB_ITEMFROMPOINT, 0, MakeLParam(x,y)) ;
    if (lstIndex >= 0) and (lstIndex <= Items.Count) then
      Hint := Items[lstIndex]
    else
      Hint := ''
    end;
   end;
 end.
 

Cevapla