وقتی تعداد آیتمهای موجود در Listbox بیشتر از طول آن است اتوماتیک Vertical ScrollBar به آن اضافه میشه اما Horizontal ScrollBar به آن اضافه نمیشه که من نیاز دارم این قسمت را بهش اضافه کنم. لطفا راهنماییم کنین. مر30
Printable View
وقتی تعداد آیتمهای موجود در Listbox بیشتر از طول آن است اتوماتیک Vertical ScrollBar به آن اضافه میشه اما Horizontal ScrollBar به آن اضافه نمیشه که من نیاز دارم این قسمت را بهش اضافه کنم. لطفا راهنماییم کنین. مر30
چطوری میتونم PageControl روی فرمم را راست چین کنم. لطفا راهنماییم کنین.
سلامنقل قول:
کد:procedure HorScrollBar(ListBox: TListBox; MaxWidth: Integer);
var
i, w: Integer;
begin
if MaxWidth = 0 then
SendMessage(ListBox.Handle, LB_SETHORIZONTALEXTENT, MaxWidth, 0)
else
begin
{ get largest item }
for i := 0 to ListBox.Items.Count - 1 do
with ListBox do
begin
w := Canvas.TextWidth(Items[i]);
if w > MaxWidth then
MaxWidth := w;
end;
SendMessage(ListBox.Handle, LB_SETHORIZONTALEXTENT,
MaxWidth + GetSystemMetrics(SM_CXFRAME), 0);
end;
end;