FindDialog???

[Piro]

Hallo

ich komme irgendwie mit diesem FinDialog nicht klar.

Wenn ich alles selber erstelle(Komponenten) und suche, klappt es. Ich möchte aber gerne den Dialog benutzen bzw. wissen wie das geht.

Also folgendes:

StringGrid mit nur einer Spalte.

Somit rufe ich den Dialog auf.

Delphi-Quellcode:

  procedure TForm1.menusuchenvornameClick(Sender: TObject);
  begin
   FindDialog1.Execute;
  end;

Das ist die Findprocedure:

Delphi-Quellcode:

 procedure TForm1.FindDialog1Find(Sender: TObject);
 var
  suchtext: string;
  i: integer;
 begin
  suchtext := FindDialog1.FindText;
  for i:=0 to StringGrid1.RowCount -1 do
  begin
      if StringGrid1.cells[0,i] = suchtext then
      begin
         ShowMessage('gefunden');
      end;
  end;
 end;

So jetzt ist mein Problem, wie ich die beiden verbinde. Und wenn ich den Suchtext eingebe, übernimmt er ihn nicht. Bzw wie ich überhaupt die einzelnen Elemente in dem Suchfenster ansprechen kann.

Ich brauch einfach mal einen Tipp oder Denkanstoss, der mich vielleicht auf einen anderen Weg bringt. Danke