VPF::как программно сдвинуть ползунок stringgrid?

Lunatikus

Дата 20.2.2008, 15:35 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 503
Регистрация: 29.6.2007

Репутация: нет
Всего: 6

снова здравствуйте.
Требуется перейти визуально,например,на 46 запись в stringgrid без использования stringgrid.row=номер_строки,ибо это вызывает,как выяснилось событие нажатия на стринггрид,что мне совсем не нужно.Мне надо,чтобы при появлении стрингрида на экране(около 400 записей) пользователю не надо было вручную прокручивать к 46,а сразу показать хотя бы примерно тот участок,где эта запись.

--------------------

TheSin - небольшое игровое сообщество взрослых и молодых(L2,WoW,Aion,RFonline and other not mmorpg,not computer games).
сайт гильдии

VICTAR

Дата 20.2.2008, 18:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 10
Всего: 80

Вот грубый вариант, позволяет переместится в

Цитата(Lunatikus @ 20.2.2008, 15:35

)

примерно тот участок,где эта запись.

Доделай сам. Мне сейчас некогда . Убегаю.

Код


procedure TForm1.btn1Click(Sender: TObject);
var
  i: Integer;
begin
  with grd1 do
  begin
    RowCount := 400;
    for i := 0 to pred(RowCount) do
      Cells[0, i] := Format('Строка №%d', [succ(i)]);
  end;
end;

procedure TForm1.btn2Click(Sender: TObject);
var
  lPos: Integer;
  lMes: TWMScroll;
  lInfo: TScrollInfo;
begin
  FillChar(lInfo, SizeOf(TScrollInfo), 0);
  lInfo.fMask := SIF_RANGE;
  GetScrollInfo(grd1.Handle, SB_VERT, lInfo);
  lPos := (lInfo.nMax * 39) div grd1.RowCount;
  lMes.Msg := WM_VSCROLL;
  lMes.ScrollCode := SB_THUMBPOSITION;
  lMes.Pos := lPos;
  grd1.Dispatch(lMes);
end;

diamondd

Дата 1.3.2008, 00:29 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 11.9.2007

Репутация: нет
Всего: нет

TStringGrig.LetfCol - номер первого видимого столбца

TStringGrid.TopRow - номер первой видимой строки

VICTAR

Дата 1.3.2008, 01:10 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 10
Всего: 80

Цитата(Lunatikus @ 20.2.2008, 15:35

)

без использования stringgrid.row=номер_строки,

Это сообщение отредактировал(а) VICTAR - 1.3.2008, 01:13

diamondd

Дата 2.3.2008, 01:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 11.9.2007

Репутация: нет
Всего: нет

использование свойств TopRow и LeftCol не вызывает события Click, потому что это просто сдвигание области прорисовки компонента.

в свою очередь, при использование свойств Row и Col вызывается функция FocusCell, т.е. программный "клик" на этой ячейке, вследствие вызывается событие OnClick:

Цитата

без использования stringgrid.row=номер_строки,ибо это вызывает,как выяснилось событие нажатия на стринггрид,что мне совсем не нужно

RTFM и смотрите исходники.

VICTAR

Дата 2.3.2008, 01:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 10
Всего: 80

Цитата(diamondd @ 2.3.2008, 01:15

)

использование свойств TopRow и LeftCol не вызывает события Click, потому что это просто сдвигание области прорисовки компонента.

Хм.. Возможно. Я не разбирался. Если так, то приношу извинения.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »