2 StringGrid i jeden ScrollBar - kontrola

0

Witam.
Proste pytanie - sa dwa StringGrid [StringGridNazwyPrzypakdow, StringGridIndex] w jednym ScrollBar jest

wylaczony w drugim zas nie, jak kontrolowac jednym Scroll'em oba obiekty? Macie pomysly? [???] ..mnie juz szlag trafia ale probuje rozpracowywac ScrollBy ..ale sadze ze to nie tedy droga [stuk] .

Mozna w onKeyPress StringGrid'a wstawic cos takiego:

procedure TUstawNazwyPrzypadkow.StringGridNazwyPrzypakdowKeyPress(
  Sender: TObject; var Key: Char); 

begin
 if Key = #13 then
     if (StringGridNazwyPrzypakdow.Row <StringGridNazwyPrzypakdow.RowCount-1) and (StringGridIndex.Row<StringGridIndex.RowCount-1)  then
       begin
        StringGridNazwyPrzypakdow.Row := StringGridNazwyPrzypakdow.Row + 1;
        StringGridIndex.Row := StringGridIndex.Row + 1;
        StringGridIndex.Col := 0;
        StringGridNazwyPrzypakdow.Col:=0;
      end else
          begin
           StringGridNazwyPrzypakdow.Row := 0;
           StringGridIndex.Row := 0;
          end;
end;

a w onGetEditText:

procedure UstawNazwyPrzypadkow.StringGridNazwyPrzypakdowGetEditText(
  Sender: TObject; ACol, ARow: Integer; var Value: String);
begin
StringGridIndex.Row := StringGridNazwyPrzypakdow.Row;

end;

A nastepnie wylaczyc ScorllBar'a.

Gdy jest aktywny owy Scroll, wszystko jest prawie dobrze ale nie do konca. Mala zmiana w kontrolowanym StrinGrid'zie i wiersze nie sa w jednej linii.

Macie jakies sugestie? Moze TUpDown, TSpinButton ale to troche bezsensowne ...

pozdrawiam

0 
procedure TUstawNazwyPrzypadkow.StringGridNazwyPrzypakdowTopLeftChanged(
  Sender: TObject);
begin
 StringGridIndex.TopRow:=StringGridNazwyPrzypakdow.TopRow;
end;

[dopisane]

Czy naprawde nikt nie wiedzial ? A moze ja tak proste pytania zadaje :-[ ?

1 użytkowników online, w tym zalogowanych: 0, gości: 1