Linie i ListBox - MemoBox

Det tror jeg ikke lige du kan få din ListBox til at regne ud *S*

er det du er ude efter det samme som når du højrekliker fra stifinder og får versions-info ??

/Martin

Hej Michael

Jeg har fået følgende til at virke:

procedure TForm1.ListBox1Click(Sender: TObject);
var i: integer; found:boolean;
begin
  found:=false;
  i:=0;
  while (not found) and (i<ListBox1.Items.Count) do
  if ListBox1.Selected[i] then
    found:=true
  else
    i:=i+1;

  case i of
  0: Label2.Caption:=\'Delphicreator\';
  1: Label2.Caption:=\'Winampcreator\';
  2: Label2.Caption:=\'WinRarcreator\';
  end;
end;

Du skal selvfølgelig hardkode dem der har lavet de forskellige programmer, men det havde du vel også regnet med.

Morten

Hvis du opretter linjerne runtime f.eks. i formens OnCreate kan du gemme firmanavnet som en pointer ved at bruge AddObject

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.Items.AddObject(\'Delphi\', Pointer(PChar(\'Borland\')));
  ListBox1.Items.AddObject(\'Winamp\', Pointer(PChar(\'Firmanavn\')));
  ListBox1.Items.AddObject(\'Winrar\', Pointer(PChar(\'Firmanavn\')));
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  with ListBox1 do
    if ItemIndex >= 0 then
      Label1.Caption := PChar(Items.Objects[ItemIndex]);
end;

Nej Martin det er ikke det jeg ville have den til.

If linje1:=valgt Then
Label2.Caption := \'Borland\';
O.S.V.

Det var det jeg ville hav den til at gøre.

Michael