listbox und fensterwechsel

[DGL-luke]

Delphi-Quellcode:

type
  TDataRecord = record
    Image: string;
    Text: string;
  end;

var
  Data: array of TDataRecord;

procedure TForm1.Listbox1CLick(Sender: TObject);
begin
  if Listbox1.ItemIndex > -1 then //wenn nichts ausgewählt ist, kannst du nicht laden
  begin
    Image1.Bitmap.LoadFromFile(Data[Listbox1.ItemIndex].Image);
    Label1.Caption := Data[Listbox1.ItemIndex].Text;
  end;
end;

Dabei ist jetzt noch nicht eingerechnet, dass du ja zusätzlich noch ein Menü haben willst.