Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Luckie,
22. Aug 2009
Danke das wars:
procedure TContactForm.FormShow(Sender: TObject);
begin
if FCurrentContactIndex > -1 then
begin
//Contact := ContactList.Items;
Caption := Format('%s', );
if Caption = '' then
Caption := 'Neuer Kontakt';
DisplayData(FContact);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Luckie,
22. Aug 2009
Jupp an der Stelle hab eich den richtigen Kontakt, aber in der Form, die dann geöffnet wird, werden die falschen Daten angezeigt, nämlich die, die zu ungefilterten Liste gehören. Kann es sein, dass wir an der falschen Stelle suchen? Hie rnoch mal die gesamte Doppelklick-Routine:
procedure TfrmAdressen.ShowContactDetails;
var
ContactForm : TContactForm;
begin
if...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Luckie,
22. Aug 2009
Was meinst du mit original Collection? Die Collection mit allen Datensätzen wird nicht verändert. Sie wird nur durchsucht und passende Datensätze werden in der Listbox angezeigt:
for i := 0 to ContactCollection.Count - 1 do
begin
if ((pos(LowerCase(edtFind.Text), LowerCase(ContactCollection.Items.Name)) > 0) or
(pos(Lowercase(edtFind.Text),...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Luckie,
22. Aug 2009
Über den Index des Listboxeintrages:
procedure TfrmAdressen.ShowContactDetails;
var
ContactForm : TContactForm;
begin
if (lbContacts.ItemIndex > -1) then
begin
ContactForm := TContactForm.Create(nil);
try
// Kontakt Objekt von Listbox an Kontaktformular übergeben
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Luckie,
22. Aug 2009
Ich habe eine Listbox in der ich mit AddObject Einträge hinzufüge. Dann habe ich ein Eingabefeld, welches die Listboxeinträge filtert im OnChange Ereignis des Eingabefeldes:
procedure TfrmAdressen.ApplyFilter;
var
i : Integer;
begin
lbContacts.Items.Clear;
case cbFind.ItemIndex of
0: // Name oder Vorname
begin