Помогите сделать переключение фотографий

[Sanya.Kushner]

Помогите сделать переключение фотографий, по кнопке вперед и назад, которые открыты в FileList

[Rin]

Извиняюсь, перепутал с обычным listbox

[Stilet]

procedure TForm1.Button1Click(Sender: TObject);
begin
 with FileListBox do begin
  if ItemIndex<Count-1 then begin
   ItemIndex:=ItemIndex+1;
   Click();
  end;
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 with FileListBox do begin
  if ItemIndex>0 then begin
   ItemIndex:=ItemIndex-1;
   Click();
  end;
 end;
end;

[Rin]

А ведь метод click() находится в protected. И его просто так не вызвать.

[Stilet]

Значит вызвать событие как процедуру
Автор же молчит как партизан, не говорит как у него что описано.

[Rin]

Молчит. Возможно, сам нашел решение)). Я вот накидал кое-что основываясь на вашем примере.

type
  TForm1 = class(TForm)
.................
    procedure load_pic(my_name:string);
end;
.................
procedure TForm1.load_pic(my_name:string);
var Tb:TBitMap;
    Tj:TJPEGImage;
begin
  tb:=TBitmap.Create;
  Tj:=TJPEGImage.Create;
  Tj.LoadFromFile(my_Name);
  Tj.CompressionQuality:=100;
  tb.Assign(Tj);
  Image1.Picture.Bitmap:=tb;
  Tj.Free;
  Tb.Free;
end;

procedure TForm1.FileListBox1Click(Sender: TObject);
begin
  load_pic(FileListBox1.FileName);
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if button=MBLEFT then
  begin
    if FileListBox1.ItemIndex<FileListBox1.Count-1 then
    begin
     FileListBox1.ItemIndex:=FileListBox1.ItemIndex+1;
     load_pic(FileListBox1.Items[FileListBox1.ItemIndex]);
    end;
  end
  else
  begin
  if FileListBox1.ItemIndex>0 then
  begin
    FileListBox1.ItemIndex:=FileListBox1.ItemIndex-1;
    load_pic(FileListBox1.Items[FileListBox1.ItemIndex]);
  end;
end;
end;


procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 FormMouseDown(Sender, Button,Shift, X, Y);
end;

[Sanya.Kushner]

Спасибо всем огромное за помощь!)