// Zwei Stringgrids
werden synchronisiert.
(Funktioniert natürlich auch
//
mit Drawgrids)
// Getestet mit D4 unter WinME
procedure TForm1.FormCreate(Sender: TObject);
begin
stringgrid2.scrollbars:=ssNone;
end;
procedure TForm1.StringGrid1TopLeftChanged(Sender: TObject);
begin
stringgrid2.toprow:=stringgrid1.toprow;
stringgrid2.leftcol:=stringgrid1.leftcol;
end;
|