Difference between revisions of "TFindDialog/fr"
From Free Pascal wiki
Jump to navigationJump to search (Created page with "{{TFindDialog}} '''TFindDialog''' Image:tfinddialog.png est un composant non visuel qui donne accès à une boîte de dialogue qui assiste dans la sélection d'un texte...") |
|||
Line 27: | Line 27: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
− | = | + | = Voir aussi = |
* [[doc:lcl/dialogs/tfinddialog.html|Doc. TFindDialog]] | * [[doc:lcl/dialogs/tfinddialog.html|Doc. TFindDialog]] | ||
* [[TReplaceDialog/fr|TReplaceDialog]] | * [[TReplaceDialog/fr|TReplaceDialog]] | ||
{{LCL Components/fr}} | {{LCL Components/fr}} |
Revision as of 13:42, 29 September 2017
│
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