Форум: "Основная";
Текущий архив: 2005.09.04;
Скачать: [xml.tar.bz2];
Вниз
Прокрутка в DBGrid Найти похожие ветки
← →
tazik © (2005-08-13 21:59) [0]Здравствуйте!
Возможно ли сделать нормальную прокрутку в DBGrid?
Спасибо.
← →
GanibalLector © (2005-08-13 22:06) [1]
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if Msg.message = WM_MOUSEWHEEL then
begin
//***********Form6
if (assigned(Form6)) then
begin
if Form6.DBGrid1.Focused then
if Form6.DBGrid1.DataSource.DataSet.Active then
begin
if(( msg.wParam <=32512) and
( Msg.message = WM_MOUSEWHEEL)) then
Form6.DBGrid1.DataSource.DataSet.Next;
if(( msg.wParam > 32512) and
( Msg.message = WM_MOUSEWHEEL)) then
Form6.DBGrid1.DataSource.DataSet.Prior;
Handled:=true;
end;
end;
...
← →
tazik © (2005-08-13 22:20) [2]Так, так, у меня хомяк без колес. Или это код можно еще преобразовать?
Я хочу что бы был нормальный скролер, например, как в ListView. Что бы левой кнопкой мыши можно было прокручивать.
← →
jack128 © (2005-08-13 22:59) [3]
DataSet.Open;
DataSet.Last;
DataSet.First;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.09.04;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c
