Yatay Kaydırma Çubuğuna sahip ListBox
oguzozturk7413.03.2004 - 23:59:37
Private
procedure SetHorizontalScrollBar(lb : TListBox) ;

procedure SetHorizontalScrollBar(lb : TListBox) ;
var
j, MaxWidth: integer;
begin
MaxWidth := 0;
for j := 0 to lb.Items.Count - 1 do
if MaxWidth < lb.Canvas.TextWidth(lb.Items[j]) then
MaxWidth := lb.Canvas.TextWidth(lb.Items[j]) ;
SendMessage(lb.Handle, LB_SETHORIZONTALEXTENT, MaxWidth + 5, 0) ;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
SetHorizontalScrollBar(ListBox1) ;
end;
 
NOT : Bu sayfa google'un siteyi indekslemesi içindir. www.delphiturkiye.com/forum/ adresini kullanınız!
1998-2006 www.delphiturkiye.com