So nun habe ich eben das Pferd von einer anderen seite bestiegen.
Ich bin nun hergegangen und habe, da offenbar keine andere Lösung zur verfügung stand, das DBGrid gelöscht und eine TListView genommen und die anzeige auf Report gestellt.
Dann entsprechend die Titel eingefügt und lese dann mit dieser funktion :
Delphi-Quellcode:
Procedure TKundenListeF.KundenListeAktualisieren;
var li : TListItem;
begin
KundenlisteView.Items.Clear;
KundenListeView.Items.BeginUpdate;
Daten.KundenListe.Open;
daten.Kundenliste.First;
repeat
li := KundenListeView.Items.Add;
li.Caption := Daten.KundenListeID.AsString;
Li.SubItems.Add(daten.KundenListeVorname.AsString);
li.SubItems.Add(Daten.KundenListeNAME.AsString);
li.SubItems.Add(Daten.KundenlisteStrasse.asstring);
li.SubItems.Add(Daten.KundenlistePLZ.AsString);
Li.SubItems.Add(Daten.KundenListeORT.AsString);
Daten.KundenListe.Next;
until Daten.KundenListe.Eof;
Daten.Kundenliste.Close;
KundenListeView.Items.EndUpdate;
end;
Die daten eben manuell ein. War zwar etwas mehr schreib arbeit aber dafür geht es.
und die Position in der Liste finde ich dann mit Hilfe von
Delphi-Quellcode:
li := KundenListeView.FindCaption(0, inttostr(S_ID), false, True, False);
if li <> nil then
begin
KundenListeView.Selected := li;
KundenListeView.ItemFocused := Li;
li.MakeVisible(True);
KundenListeView.SetFocus;
end;
wobei ich da wohl Wishmaster aus
Diesem Beitrag danken muss. So kam ich auf die Idee
Mein Alter Herr ist der meinung das ich diese Technik nicht verwenden sollte aber der hat leicht reden. Der hat auch genug geld um sich die Enterprise version von Delphi zu holen wo etwas andere komponenten zur verfügung stehen
Ich habe nur die Turbo Version...
Aber auch damit geht nur eben etwas schwerer
Danke an alle die Mir versucht haben zu helfen und sich den Kopf zerbrochen haben.