Ich habe es nun mal so übernommen:
Delphi-Quellcode:
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
begin
if TabControl1.Tabs[i] = DataModule1.ABStblName.FieldByName('Anzeige').value then gefunden := True;
inc(i);
end;
If gefunden then TabControl1.TabIndex := i;
end;
es wird allerdings vom gesuchten Namen der folgende Tab angezeigt.
Norbert