Вниз
Скачать: CL | DM;

Фокус на Stringgrid   Найти похожие ветки 

 
pavelkq   (2009-01-15 14:18) [0]

Устанавливаю фокус на строку (выделение строками).
StringGrid1.SetFocus;
StringGrid1.Row:=MyRow;

Срабатывает, но эта выделенная строка находится где-то внизу таблицы, за пределами видимости. Если ее двинуть вверх/вниз (клавишами или колесиком мышки), то строка сразу становится в видимой части таблицы. Как сделать, чтобы она сразу была видна посре перемещения на нее фокуса?


 
{RASkov} ©   (2009-01-15 15:24) [1]

В D7 код из [0] нормально отрабатывает... ничего двигать и нажимать дополнительно не нужно...
Но... Но если в данный момент(в момент выполнения кода [0]) Текущий Row у StringGrida = MyRow, и он не в области видимости, то да - ничего не произойдет....
Можно в данном случае поиграться с StringGrid.TopRow...


 
Pavelkq   (2009-01-15 20:47) [2]


> {RASkov} ©

StringGrid.TopRow не помог. У кого еще такие проблемы были и как их победить?


 
MsGuns ©   (2009-01-15 21:00) [3]

Чему равен RowCount ?


 
{RASkov} ©   (2009-01-15 22:57) [4]

> StringGrid.TopRow не помог.

Не верю. Ну да ладно....
А если сделать так:
 StringGrid1.Row:=MyRow-1;
 StringGrid1.Row:=MyRow;
 StringGrid1.SetFocus;
? :) Не, так конечно делать не нужно, но попробуй.... Ибо:
procedure TCustomGrid.SetRow(Value: Longint);
begin
 if Row <> Value then FocusCell(Col, Value, True);
end;

Победить можно так:
type TMyGrid = class(TCustomGrid);
procedure TForm1.Button1Click(Sender: TObject);
begin
 TMyGrid(StringGrid1).FocusCell(StringGrid1.Col, MyRow, True);
end;



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.007 c
2-1232345401
alshtam
2009-01-19 09:10
2009.03.01
запись файла на cd.


2-1232453883
Айбек
2009-01-20 15:18
2009.03.01
Делфи7


2-1231968156
Evgengold
2009-01-15 00:22
2009.03.01
escapecommfunction и работа com портом


2-1232389658
Vemer
2009-01-19 21:27
2009.03.01
Функция WinApi, которая возвращает владельца пиксела?


6-1198579437
Свой
2007-12-25 13:43
2009.03.01
Webserver application и доступ к файлам под IIS 5.1




   Наверх