تبدیل کد

[shining_eye]

من این کد رو برای رویداد onkey downیک memo داشتم اگر بخوام برای یک stringgrid دقیقا این کد رو بنویسم چه تغییری باید در ش ایجاد کنم ؟




begin
if (key=vk_up) then
begin
Edit1.Text:= Memo1.Lines.Strings[sendmessage(memo1.Handle ,em_linefromchar,-1,0)-1];
end;
if (key=vk_down) then
begin
Edit1.Text:= Memo1.Lines.Strings[sendmessage(memo1.Handle ,em_linefromchar,-1,0)+1];
end;
if (key=vk_left) then
begin
Edit1.Text:= Memo1.Lines.Strings[sendmessage(memo1.Handle ,em_linefromchar,-1,0)];
end;
if (key=vk_right) then
begin
Edit1.Text:= Memo1.Lines.strings[sendmessage(memo1.Handle ,em_linefromchar,-1,0)];
end;

[Felony]

خود StringGrid به همین صورت پیاده شده ( با فشردن کلیدهای جهت نما تغییر سطر و ستون میده ) ولی در کل اگر میخواین خودتون همچین کاری کنید باید با Col و Row کنترل StringGrid مورد نظرتون کار کنید ، مثلا :
if Key= VK_Right then
StringGrid1.Col:= StringGrid1.Col+ 1;