Заполнение StringGrid в RunTime. Автопрокрутка.

← →
Cosinus © (2004-10-28 13:22) [0]

Собственно почти весь вопрос в теме. В RunTime я заполняю StringGrid и когда доходит до последней видимой строчки, необходимо организовать авто прокрутку.
Нижеприведенный код почему то не работает...
if Data_sg.RowCount>26 then for l:=1 to Data_sg.RowCount-26 do SendMessage(Data_sg.Handle,WM_VSCROLL, SB_LINEDOWN ,0);

← →
Subdigger © (2004-10-28 13:28) [1]

а чем тебе стандартная не подходит?

← →
Cosinus © (2004-10-28 13:31) [2]

Может я туплю, но я не нашел никакого свойства отвечающего за автопрокрутку, а по дефолту не прокручивает...

← →
pasha_golub © (2004-10-28 13:42) [3]

Cosinus © (28.10.04 13:22)
Дело в том, что Грид не есть стандартный элемент управления, посему ему это сообщение до заднего места.

Щас поищу как это сделать

← →
pasha_golub © (2004-10-28 13:43) [4]

StringGrid.Col := StringGrid.ColCount-1;

Try this

← →
Subdigger © (2004-10-28 13:44) [5]

еси ты юзаеш стрингрид то у него есть пропертя ScrollBars - по умолчанию она равна ssBoth если ты там поставил ssNone то никто тебе не поможет =)

← →
Cosinus © (2004-10-28 13:47) [6]

if Data_sg.RowCount>26 then Data_sg.Row:=Data_sg.RowCount-1;
Не катит ;(

← →
Cosinus © (2004-10-28 13:48) [7]

> Subdigger © (28.10.04 13:44) [5]

Даже не смешно

← →
pasha_golub © (2004-10-28 13:50) [8]

Ну, как не работает, когда работает? А?
sg.Row := sg.RowCount -1;

Проверь предположение Subdigger © (28.10.04 13:44) [5]

← →
pasha_golub © (2004-10-28 13:51) [9]

У тебя случайно на OnSelectCell ничего не висит?

← →
Cosinus © (2004-10-28 13:53) [10]

> pasha_golub © (28.10.04 13:50) [8]

Ну не работает и все...
Data_sg.ScrollBars:=ssVertical
> pasha_golub © (28.10.04 13:51) [9]

Нет

← →
pasha_golub © (2004-10-28 13:58) [11]

х..ня какая-то...

У меня вот так выглядит:

object StringGrid1: TStringGrid
Left = 280
Top = 200
Width = 320
Height = 120
RowCount = 26
TabOrder = 1
end

А у тебя как? Или ты его полностью в ран-тайм создаешь?

← →
Cosinus © (2004-10-28 14:02) [12]

object Data_sg: TStringGrid Left = 0 Top = 40 Width = 561 Height = 425 Color = clBlack ColCount = 40 DefaultColWidth = 16 DefaultRowHeight = 16 FixedCols = 0 RowCount = 1 FixedRows = 0 Font.Charset = RUSSIAN_CHARSET Font.Color = clLime Font.Height = -11 Font.Name = "Fixedsys" Font.Style = [] GridLineWidth = 0 Options = [goThumbTracking] ParentFont = False PopupMenu = Data_pm ScrollBars = ssVertical TabOrder = 6 OnDrawCell = Data_sgDrawCell end

← →
Subdigger © (2004-10-28 14:10) [13]

2 Cosinus
Да кстати тот код что ті привел в начале у меня работает.!??

← →
Cosinus © (2004-10-28 14:11) [14]

> Subdigger © (28.10.04 14:10) [13]

ФФФак!!! Почему же у меня то ничего не работает???

> Subdigger © (28.10.04 14:14) [15]

Если ты имеешь ввиду тот VertScrollBar, который появляется, когда значение RowCount переваливает за VisibleRowCount, то да. Если ручками прокручивать, то все отлично работает...

> Subdigger © (28.10.04 14:25) [17]

Неа.. Ничего не ловлю.
Я уж и не знаю, что делать... Прибил OnDrawCell, прибил вообще все, что связано с StringGrid, кроме процедуры, добавляющей данные в таблицу... Не катит.

попробуй так
[code] StringGrid1.TopRow:=3;[/code]

попробуй так
StringGrid1.TopRow:=3;

Заполнение StringGrid в RunTime. Автопрокрутка. Найти похожие ветки