![]() |
AW: Um Anzahl der Einträge zu zählen wo ListView1.Items.Count aufrufen?
Zitat:
|
AW: Um Anzahl der Einträge zu zählen wo ListView1.Items.Count aufrufen?
Dieses Prog wird ein Open Source :thumb:
Ihr könnt es dann begutachten. :-D |
AW: Um Anzahl der Einträge zu zählen wo ListView1.Items.Count aufrufen?
Hallo,
Delphi-Quellcode:
und
type
TForm1 = class(TForm) [...] public procedure ShowListCount(); end; in Form3
Delphi-Quellcode:
Form1.ShowListCount
Heiko |
AW: Um Anzahl der Einträge zu zählen wo ListView1.Items.Count aufrufen?
Genau, hab das schon so. Aber danke, weiß jetzt, dass es auch richtig so ist. :thumb:
Ich wollte die Procedure nur an einer Stelle aufrufen, da sonst ich es auf vielen machen muss. Beim Einfügen, Ändern, Löschen der Einträge usw. |
AW: Um Anzahl der Einträge zu zählen wo ListView1.Items.Count aufrufen?
Moin,
Zitat:
Eine andere Möglichkeit wäre:
Delphi-Quellcode:
Das ist natürlich etwas komplizierter, aber hier muss die Unit der Form1 nur die Unit der Form3 kennen. So arbeiten übrigens auch die Ereignisse von den Komponenten (TButton.OnClick zum Beispiel). Ereignisse haben den großen Vorteil, dass die auslösende Klasse die andere Klasse nicht kennen muss.
type
TEmptyEvent = procedure() of object; // Evtl. gibts das schon TForm1 = class(TForm) [...] private procedure ShowListCount(); [...] public procedure ShowForm3(); [...] end; TForm3 = class(TForm) [...] private FShowListCount : TEmptyEvent; [...] public property OnShowListCount : TEmptyEvent read FShowListCount write FShowListCount; [...] end; var [...] Form3 : TForm3; [...] procedure foo(); begin if Assigned(Form3) then Form3.Caption := 'Haha!'; end; procedure TForm1.ShowForm3(); var f : TForm3; begin f := TForm3.Create(); try //foo; // siehe unten f.OnShowListCount := ShowListCount; f.Show; // oder modal finally f.Free; end; end; Um das Ereignis auszulösen musst du nur folgendes Codesegment einfügen:
Delphi-Quellcode:
Die if-Abfrage verhindert, dass er versucht Ereignisse zu feuern die es nicht gibt. Du kannst übrigens alle ()-Blöcke löschen ;) Das kommt von Java/C#.
if Assigned(FShowListCount) then
FShowListCount(); Außerdem kann ich damit verdeutlichen, warum man nicht Form3 oder sowas nehmen sollte (i.A. globale Variablen). Wenn du jetzt nämlich den auskommentierten Befehl "foo" aufrufst, dann ändert er nicht (!) die Caption von der Form, die in f steht. Weil f != Form3 ist. Wegen dein Kommentar: Du kannst die Methode auch weiterhin an mehreren Stellen aufrufen, und gerade dafür sind ja Methoden da. MfG Fabian |
AW: Um Anzahl der Einträge zu zählen wo ListView1.Items.Count aufrufen?
Du kannst auch eine Wrapper-Prozedur basteln. Statt einen neuen Eintrag per Items.Add hinzuzufügen rufst du deine eigenen Funktionen auf, die das übernehmen. So kannst du auch immer an der richtigen Stelle die Anzahl der Werte anzeigen lassen. Also etwa so:
Delphi-Quellcode:
Bernhard
procedure TForm1.AddListBoxEntry(s: String);
begin ListBox1.Items.Add(s); ShowListCount(); end; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:48 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz