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