Какое сообщение нуно послать TStringGrid

← →
Чайник(заварной) (2003-01-18 16:15) [0]

чтоб его скролы щевелить

← →
Eraser@YYY (2003-01-18 16:27) [1]

Ну переместить бягунок как??????????

← →
Чайник(заварной) (2003-01-18 16:28) [2]

Вот я и спрашиваю

← →
Song © (2003-01-18 18:27) [3]

TStringGrid.Row/Col

← →
Чайник(заварной) (2003-01-19 01:06) [4]

Я придумал вот такой способ:

procedure TForm1.SGMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin x0 := X; y0 := Y; //SetScrollRange(sg.Handle,SB_HORZ,0,sg.Width*50,True); //SetScrollRange(sg.Handle,SB_VERT,0,sg.Height*50,True); end; procedure TForm1.SGMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if (ssShift in shift) or (ssMiddle in Shift) then begin SetScrollPos(Sg.Handle, SB_HORZ,GetScrollPos(Sg.Handle, SB_HORZ)+x-x0,True); SetScrollPos(Sg.Handle, SB_VERT,GetScrollPos(Sg.Handle, SB_VERT)+y-y0,True); end; end;

скролы просто замечательно бегают, а сама таблица как вкопанная
у TStringGrid есть метод ScrollBy(dx,dy) - он творит просто страшные вещи если ему вместо параметров подогнать разницу между начальным значением и конечным, нетак эффектно оплучается если приправить sg.repaint; всё начинает моргать(и неудевительно).

мне первый способ больше нравится, помогите сделать так чтоб и содержимое таблицци переместилось, а если кто знает как ScrollBy правильно оброщаться, прощу помочь.

Посмотри TopRow, LeftCol.

← →
Чайник(заварной) (2003-01-19 01:26) [6]

Вот это дело!!!

Благодарю!!!

Какое сообщение нуно послать TStringGrid Найти похожие ветки