Witam, mam problem z Lazarusem, gdyż wyrzuca mi błąd przy:
procedure TForm3.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key=VK_RIGHT then
begin
if i<Form1.ListBox1.Items.Count then
begin
Form3.Image1.Picture.Loadfromfile(Form1.ListBox1.Items[i]);
Inc(i);
end
else
begin
ShowMessage( ' Koniec listy ' );
end;
end;
Błąd wygląda następująco:
unit3.pas(47,22) Error: Identifier not found "VK_RIGHT"
dodanie znaczników <code> i <code class="delphi"> - furious programming