Procedure mit unterschiedlichen Objekten
Delphi-Quellcode:
Hallo
procedure TPowerplay.Vorr(Markiert: integer);
begin sel := Markiert + 1; pllist.Selected[sel] := true; label4.Caption := pllist.Items[sel]; label3.caption := Pfadlist.Items[sel]; if sel = pllist.Items.Count - 1 then begin vor.Enabled := false; zu.Enabled := true; end; mp3play; end; Oben hab ich eine Procedure aus meinem Programm. Mein Problem ist, dass diese Procedure von zwei Objekten gleichzeitig genutzt werden soll. Ich habe die Komponenten (pllíst = Listbox und Filelist = Filelistbox). Je nach benutzung, soll (bildlich) aus allen pllist filelist werden und andersrum. Wie kann ich das realisieren? Thx Moyyer |
Re: Procedure mit unterschiedlichen Objekten
Delphi-Quellcode:
Alle a sollen je nach onclick Procedure Listbox bzw Filelistbox annehmen.
procedure TPowerplay.Vorr(Markiert: integer);
var a: TComponent; begin sel := Markiert + 1; [u]a[/u].Selected[sel] := true; label4.Caption := [u]a[/u].Items[sel]; label3.caption := Pfadlist.Items[sel]; if sel = [u]a[/u].Items.Count - 1 then begin vor.Enabled := false; zu.Enabled := true; end; mp3play; end; Wie kann ich das machen? Vielleicht ist es jetzt besser zu verstehen, was ich machen will. MfG Moyyer |
Re: Procedure mit unterschiedlichen Objekten
Vielleicht so?
Delphi-Quellcode:
procedure TPowerplay.Vorr(Sender: TCustomListBox; Markiert: Integer);
begin sel := Markiert + 1; Sender.Selected[sel] := True; label4.Caption := Sender.Items[sel]; label3.Caption := Pfadlist.Items[sel]; if sel = Sender.Items.Count - 1 then begin vor.Enabled := False; zu.Enabled := True; end; mp3play; end; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:20 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz