Making MoveColumn og MoveRow offentlig uten å installere en ny componentMoving rader og kolonner i en StringGrid av codeThe brukeren kan flytte rader og kolonner i en StringGrid med musen. Det kan også gjøres ved å kode? I hjelp for TCustomGrid kan du se metoder MoveColumn og MoveRow, men de er skjult i TStringGrid. Vi kan gjøre dem tilgjengelige igjen ved subclassing TStringGrid og erklære disse metodene som offentlig: type TStringGridX = klasse (TStringGrid) offentlig prosedyre MoveColumn (FromIndex, ToIndex: Longint); Prosedyren MoveRow (FromIndex, ToIndex: Longint); enden, Gjennomføringen av disse metodene bare består av å påberope seg tilsvarende metode for stamfar: prosedyre TStringGridX.MoveColumn (FromIndex, ToIndex: Integer); begynne arvet; slutt; Prosedyren TStringGridX.MoveRow (FromIndex, ToIndex: Integer); begynne arvet; ende; Du trenger ikke å registrere denne komponenten i Components Palette. Bruk en TStringGrid eller noen TCustomGrid etterkommer, og når du må ringe disse metodene bare kastet objektet til den nye klassen. For eksempel: prosedyre TForm1.Button1Click (Sender: TObject); begynne TStringGridX (StringGrid1) .MoveColumn (1, 3); end; Du finner hele kildekoden til denne artikkelen i arkivet som følger med Pascal Nyhetsbrev # 25 Anmeldelser