TabControl aktualisieren

[norbert3]

Hallo Leute,

ich habe wiedermal ein Problem. Ich habe in einem Formular ein TabControl eingebaut.
Die Tab´s werden automatisch mit dem Familiennamen gefüllt.

Delphi-Quellcode:

TabControl1.TabHeight := 25;
    with DataModule1.ABStblName do
    begin
    open;
    while not EOF do
      begin
      TabControl1.Tabs.Add(FieldByName('Anzeige').AsString);
      Next;
      end;
    First
    end;

Das funktioniert einwandfrei. Jetzt zu meinem Problem: Wenn ich eine neue Adresse mit dazu gehörigen Familiennamen anlege, wird die Tabseite zwar angezeigt, aber der Tab selber erst wenn ich die Anwendung neu starte.
Wie kann ich das ändern??

Danke im voraus. Mfg Norbert

[mkinzler]

Wo steht dieser Code?

[norbert3]

Hallo,

der Code istprocedure TForm1.FormCreate(Sender: TObject);

[mkinzler]

Dann führe doch den TabControl1.Tabs.Add(...); -Befehl nach dem Einfügen einer Adresse aus.

[norbert3]

Hey,

danke für die schnelle Antwort. Ich werde es morgen in Angriff nehmen.

MfG Norbert

[norbert3]

Hallo,
danke nochmals für den Tip. Funktioniert wunderbar. Einen Schönheitsfehler gibt es noch.

Wenn ich über mein Suchfeld im geöffneten Formular einen Namen eingebe, springt leider der Tab nicht mit. Die richtigen Daten des ausgewählten Satzes werden jedoch angezeigt.

Suchfunktion:

Delphi-Quellcode:

suche := Edit1.Text;
    dataModule1.ABStblName.Locate('Anzeige',suche,[lopartialKey]+[loCaseInsensitive]);

Hat jemand noch eine Idee??

Mfg Norbert

[mkinzler]

Du mußt nach dem .Locate den aktiven Tab auf den tab mit dem aktuellen Namen setzen.

[norbert3]

Hey mkinzler,
könntest du mit einem Codeschnippsel mir auf die Sprünge helfen?
Mfg Norbert

[mkinzler]

Delphi-Quellcode:

i := 0;
gefunden := false;
while not gefunden and i < TabControl1.Tabs.Count -1 do
    if TabControl1.Tabs[i].Text = DataModule1.ABStblName.FiledByName('Anzeige').value then gefunden := True;
If gefunden then TabControl1.TabIndex := i;

Getippt und nicht getestet.

[norbert3]

Hey

Delphi-Quellcode:

  var suche: String;
  gefunden : Boolean;
          i: Integer;

begin
    suche := Edit1.Text;
    dataModule1.ABStblName.Locate('Anzeige',suche,[lopartialKey]+[loCaseInsensitive]);
    i := 0;
    gefunden := false;
      while not gefunden and i < TabControl1.Tabs.Count -1 do
      if TabControl1.Tabs[i].Text = DataModule1.ABStblName.FieldByName('Anzeige').value then gefunden := True;
          If gefunden then TabControl1.TabIndex := i;
     end;

leider kommt nach i< TabControl1.... eine Fehlermeldung:[

Fehler] kontakt.pas(382): Operator ist auf diesen Operandentyp nicht anwendbar

Was mache ich falsch?
Mfg Norbert