Forum: Programmieren allgemein
by roland9999,
12. Apr 2012
Vielen Dank für euere Geduld und Hilfe.
Das Problem ist gelöst.
Das Beispiel von Sir Rufo hat mir weiter geholfen.
LG
Forum: Programmieren allgemein
by roland9999,
11. Apr 2012
Also zur allgemeinen Informationen.
Ich suche, finde und probiere aus solange bis ich eine Lösung gefunden habe.
Momentan verstehe ich nicht wie ich es hinbekommen kann, meine dynamisch erstellten Panels zu entfernen und bei Bedarf wieder zu erstellen.
Der Bedarf ist dann da, wenn in den Kontakten ein neuer Datensatz hinzugefügt, geändert oder gelöscht wurde.
LG
Roland
Forum: Programmieren allgemein
by roland9999,
11. Apr 2012
Hier ist der Sourcecode
Gruß
Forum: Programmieren allgemein
by roland9999,
11. Apr 2012
procedure Tf_hauptform.Button2Click(Sender: TObject);
var i : integer;
temp : tcomponent;
begin
for i:=objectlist.Count -1 downto 0 do
begin
Temp:=Components;
if Temp is TJVCaptionPanel then
Temp.Free;
end;
Forum: Programmieren allgemein
by roland9999,
11. Apr 2012
ich habe es entsprechend geändert.
Aber geändert hat sich nichts.
Das ist der Vorgang zum löschen
procedure Tf_hauptform.Button2Click(Sender: TObject);
var i : integer;
begin
for I := objectlist.Count to ObjectList.Count - 1 do
Forum: Programmieren allgemein
by roland9999,
11. Apr 2012
Ich frage doch ab ob Objectlist nicht vorhanden ist. Ist Objectlist nicht vorhanden wird diese erzeugt.
Forum: Programmieren allgemein
by roland9999,
11. Apr 2012
Ich gehe jetzt folgendermaßen vor
ObjectList erzeugen
if not (assigned(objectlist)) then
objectList := TObjectList.create;
Forum: Programmieren allgemein
by roland9999,
10. Apr 2012
Danke für die schnelle Antwort.
Ich werde es durchprobieren.
Gruß
Roland
Forum: Programmieren allgemein
by roland9999,
10. Apr 2012
Hallo zusammen,
ich habe viel gelesen aber ich weiß immer noch nicht wie ich mein Problem lösen kann.
Es werden JVCaptionPanels dynamisch erzeugt. Die Anzahl ist von der Anzahl der vorhandenden Datensätze abhängig.
Zur Zeit sind es 4 Panels.
So erzeuge ich diese: