in einem DBGrid ins bestimmte Feld springen [gelöst]

[sniffy]

Hi!
Wie kann ich bei einem DBGrid in ein bestimmtes Feld springen?

Mit 'Locate' durchsuche ich mein DBGrid nach einem bestimmten String und wenn der String in einem Feld
gefunden wurde soll es Fokusiert werden. Kein Plan wie ich das anstellen soll.

Für Antorten wäre ich dankbar!

Gruss
sniffy

[sniffy]

Weiss keiner ne Antwort?

[Sharky]

Hai sniffy,

durchsuchst Du mit Locate mehrere Felder oder immer nur eines?

[sniffy]

Ich mach es so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
     if Query1.Locate(ComboBox3.Text,Edit1.Text,[loPartialKey,loCaseInsensitive   ]) then
        ShowMessage(Edit1.Text + ' gefunden :-) !')
     else
         ShowMessage(Edit1.Text + ' nicht gefunden :-( !');
end;

[Jasocul]

Da du die Felder durchsuchst, müsstest du auch wissen in welchem Feld du ein Ergebnis gefunden hast.
Dein DBGrid kennt die Eigenschaft "SelectedField". imo ist das nicht ReadOnly. Du kannst SeletedField also auch setzen.

[Sharky]

Sollte so gehen

Zitat von sniffy:

Ich mach es so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  feldname : string;
  suchwort : string;
begin
  feldname := ComboBox3.Text;
  suchwort := Edit1.Text;
  if  DBGrid1.DataSource.DataSet.Locate(feldname,suchwort,[loPartialKey,loCaseInsensitive]) then
  begin
    DBGrid1.SelectedField := DBGrid1.DataSource.DataSet.FieldByName(feldname);
    DBGrid1.SetFocus;
  end
  else
  begin
    ShowMessage(suchwort + ' nicht gefunden :-( !');
  end;
end;

[sniffy]

Super, es funktioniert!
Vielen, vielen Dank!!!