ListBox-Problem unter Delphi

Salute,

wie schaffe ich, ein selektiertes Item einer Listbox, in einer anderen Form (z.B. in einem Label) anzuzeigen. Das Problem ist, es soll allgemein gültig sein , da ich 5 Listboxen benutze. Meine Entwicklungsumgebung ist Delphi.

Bitte um Hilfe...
Danke..

WEBSTER



------------------
----==WEB-MASTER OF==----
---=hot.warez.arecool.net=---

Ich weiß ja nicht, was genau Du machen willst, aber suchst Du vielleicht so was? Die Prozedur kann jeder ListBox zugewiesen werden...

procedure TfmMainForm.ListBox1Click (Sender: TObject);
var
liSel : TListItem;
begin
if (not (Sender is TListBox)) then
Exit;
with (Sender as TListBox) do begin
liSel := Selected;
if (not Assigned (liSel)) then
Exit;
fmOtherForm.Label1.Caption := liSel.Caption;
end;
end;

O Love

------------------
"I will not abide disobedience!"

Salute,

habe es mal ausprobiert, ist aber leider gescheitert....
Das Prog wollte die Methode SELECTED nicht akzeptieren. Habe es dann aber trotzdem hinbekommen.......

Danke.....

------------------
----==WEB-MASTER OF==----
---=hot.warez.arecool.net=---

<BLOCKQUOTE><font size="1" face="Verdana, Arial">Zitat:</font><HR>
Habe es dann aber trotzdem hinbekommen...
[/quote]

Fein.

Wir sollten dennoch in Zukunft mit angeben, welche Programmversion benutzt wird. Obige Prozedur gibt es unter Delphi 4.

O Love

------------------
"I will not abide disobedience!"

Salute,

benutze D5.....

WEBSTER

Sorry, mein Fehler, ich habe mal wieder TListBox und TListView verwechselt. Bei letzterem gibt es die Property Selected, und die liefert dann das TListItem.

O Love

------------------
"I will not abide disobedience!"