Hi
I have an ImageEnView component with a number of layers I am stepping through to create an animation loop. I have actions for next frame and previous frame so I thought I would hook them up to the OnKeyDown event so that you could control them with the left/right arrow keys and the zoom level with the up/down arrow keys. This didn't work and I found that the component had a OnVirtualKey event. The code worked a lot more reliably with this - but I found when you stepped through one key press/frame at a time you got one successful event but the next event wouldn't fire. If you keep the key down the event fires repeatedly so all I can figure is that there is a repeat delay interval that's causing this. Can anyone advise me how I can smoothly loop through my frames one at a time?
procedure TfmMain.ImageVirtualKey(Sender: TObject; VirtualKey, KeyData: Cardinal; KeyDown: Boolean);
begin
case VirtualKey of
vk_add,vk_down : TAzoomIn.Execute;
vk_subtract,vk_up : TAzoomOut.Execute;
vk_right : TAnext.Execute;
vk_left : TAprevious.Execute;
end;
end;
Bruce.
Search
