Difference between revisions of "TReplaceDialog/fr"
From Free Pascal wiki
Jump to navigationJump to search (Created page with "{{TReplaceDialog}} '''TFindDialog''' Image:tfinddialog.png est un composant non visuel qui donne accès à une boîte de dialogue qui assiste dans la recherche et le rem...") |
m (Fixed syntax highlighting) |
||
| Line 7: | Line 7: | ||
= Usage = | = Usage = | ||
| + | |||
Un exemple pour utiliser un TReplaceDialog avec un [[TSynEdit]]. L'événement <code>OnReplace</code> sera exécuté quand le bouton 'Replace' dans la boîte de dialogue est pressé. | Un exemple pour utiliser un TReplaceDialog avec un [[TSynEdit]]. L'événement <code>OnReplace</code> sera exécuté quand le bouton 'Replace' dans la boîte de dialogue est pressé. | ||
| − | <syntaxhighlight> | + | |
| + | <syntaxhighlight lang=pascal> | ||
procedure TMyForm.Button1Click(Sender: TObject); | procedure TMyForm.Button1Click(Sender: TObject); | ||
begin | begin | ||
| Line 34: | Line 36: | ||
= Voir aussi= | = Voir aussi= | ||
| + | |||
* [[doc:lcl/dialogs/treplacedialog.html|Doc. TReplaceDialog]] | * [[doc:lcl/dialogs/treplacedialog.html|Doc. TReplaceDialog]] | ||
* [[TFindDialog/fr|TFindDialog]] | * [[TFindDialog/fr|TFindDialog]] | ||
{{LCL Components/fr}} | {{LCL Components/fr}} | ||
Latest revision as of 13:05, 1 March 2020
│
English (en) │
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 recherche et le remplacement d'un texte dans un autre. Le composant TReplaceDialog est disponible depuis l'onglet Dialogs de la palette de composants.
]]
Usage
Un exemple pour utiliser un TReplaceDialog avec un TSynEdit. L'événement OnReplace sera exécuté quand le bouton 'Replace' dans la boîte de dialogue est pressé.
procedure TMyForm.Button1Click(Sender: TObject);
begin
ReplaceDialog1.Execute();
end;
procedure TMyForm.ReplaceDialog1Replace(Sender: TObject);
var
k: integer;
begin
with Sender as TReplaceDialog do begin
opt := [];
if frReplace in Options then
opt := [ssoReplace];
if frReplaceAll in Options then
opt := [ssoReplaceAll];
k := TSynEdit1.SearchReplaceEx( FindText, ReplaceText, opt, Position );
if k>=0 then
TSynEdit1.SetFocus()
else
Beep();
end;
end;
Voir aussi
