Ich habe mir die
MDI Projektvorlage aus der D7 Galerie genommen, eine FindAction in der ActionList angelegt und diese mit einem MenuItem im Bearbeiten-Menü verknüpft.
Hier ist mein Code für die FindAction - vielleicht hilft dir das weiter?
Delphi-Quellcode:
procedure TMainForm.FindActionExecute(Sender: TObject);
var
i, offset: integer;
mc: TMDIChild;
s: string;
begin
s := '';
if not InputQuery('Suchen nach', 'Suchtext', s) or (s = '') then
Exit;
for i := 1 to MDIChildCount - 1 do begin
mc := MDIChildren[i] as TMDIChild;
offset := Pos(s, mc.Memo1.Text);
if offset > 0 then begin
mc.BringToFront;
mc.Memo1.SelStart := Pred(offset);
mc.Memo1.SelLength := Length(s);
end;
end;
end;
Freundliche Grüße vom marabu