Okay. Schritt für Schritt.
- FindDialog auf das Formular packen
- In der ActionList Deine Action anlegen
- Im Objektinspektor unter "Ereignisse" auf "OnExecute" klicken (Alternativ: Doppelklick auf die Action in der ActionList
Ins OnExecute der Action dann:
Delphi-Quellcode:
// Annahmen:
// Dein FindDialog heißt "FindDialog1"
// Dein SynEdit heißt "SynEdit1"
// Falls das anders ist, einfach in diesem Text umbenennen
if FindDialog1.Execute then
begin
// FindAll gibt die Anzahl der Treffer zurück
if SynEdit1.SearchEngine.FindAll(FindDialog1.FindText) > 0 then
begin
// Hier kannst Du Deiner Kreativität freien Lauf lassen :-P
// .SearchEngine beinhaltet auch die Resultate der Suche
end;
end;