جابجايي رديفها در DbGrid

[RK977877]

با سلام
چگونه ميتوان توسط كليدهاي تركيبي Ctrl + Vk_Up , Ctrl + Vk_Down
رديفها را در DbGrid عوض كرد
اگه ميشه يك نمونه مثال در اين تايپيك قرار بديد

[Hsimple11]

کلیدهای VK خود را شبیه سازی کنید.
برای جابجایی ردیفها در یک گرید :


type
TStringGridHack = class(TStringGrid)
public
procedure MoveRow(FromIndex, ToIndex: Longint);
end;

procedure TStringGridHack.MoveRow(FromIndex, ToIndex: Integer);
begin
inherited;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
TStringGridHack(StringGrid1).Moverow(1, 3);
end;

موفق باشید...