Работа с множеством
Здравствуйте, уважаемые!
В скрипте создаю форму, навешиваю на событие OnKeyUp свой обработчик:
procedure FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ssCtrl in Shift then
f.Color := clRed;
end;
Компиляция проходит нормально, но при выполнении вываливается ошибка:
Variant is not an array.
Подскажите как правильно сделать...
В скрипте создаю форму, навешиваю на событие OnKeyUp свой обработчик:
procedure FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ssCtrl in Shift then
f.Color := clRed;
end;
Компиляция проходит нормально, но при выполнении вываливается ошибка:
Variant is not an array.
Подскажите как правильно сделать...