TFindDialog/fr
From Lazarus wiki
Jump to navigationJump to searchThe printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.
│
English (en) │
suomi (fi) │
français (fr) │
русский (ru) │
中文(中国大陆) (zh_CN) │
TFindDialog est un composant non visuel qui donne accès à une boîte de dialogue qui assiste dans la sélection d'un texte à rechercher. Le composant TFindDialog est disponible depuis l'onglet Dialogs de la palette de composants. Pour activer un FindDialog, il suffit d'appeler sa méthode Execute()
. Créez ensuite un gestionnaire pour l'événement OnFind
pour réaliser le code de recherche.
Usage
procedure TMyForm.Button1Click(Sender: TObject);
begin
FindDialog1.Execute();
end;
procedure TMyForm.FindDialog1Find(Sender: TObject);
var
k: integer;
begin
with Sender as TFindDialog do begin
k := Pos( FindText, Memo1.Lines.Text );
if k>0 then begin
Memo1.Selstart := k;
Memo1.SelLength := length( FindText );
end else
Beep();
end;
end;
Voir aussi