спасибо, но мне бы хотелось прокрутку колесиком мыши =)
хм нашел такой вариант, все работает с одной фиксированной строкой как положено, может пригодится кому:
| Код |
procedure TForm1.StringGrid1MouseWheelDown(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
const
delta = 5;
begin
if TStringGrid(Sender).TopRow + delta + TStringGrid(Sender).VisibleRowCount < TStringGrid(Sender).RowCount then
TStringGrid(Sender).TopRow := TStringGrid(Sender).TopRow + delta
else
TStringGrid(Sender).TopRow := TStringGrid(Sender).RowCount - TStringGrid(Sender).VisibleRowCount;
Handled := True;
end;
procedure TForm1.StringGrid1MouseWheelUp(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
const
delta = 5;
begin
if TStringGrid(Sender).TopRow > 1 then
if TStringGrid(Sender).TopRow > delta then
TStringGrid(Sender).TopRow := TStringGrid(Sender).TopRow - delta
else
TStringGrid(Sender).TopRow := 1;
Handled := True;
end;
|
только еще пришлось вручную устанавливать форус на MouseEnter и "терять" его на MouseLeave |
)