Difference between revisions of "TFindDialog"
From Free Pascal wiki
Jump to navigationJump to searchLine 9: | Line 9: | ||
procedure TMyForm.Button1Click(Sender: TObject); | procedure TMyForm.Button1Click(Sender: TObject); | ||
begin | begin | ||
− | |||
FindDialog1.Execute(); | FindDialog1.Execute(); | ||
end; | end; | ||
+ | |||
procedure TMyForm.FindDialog1Find(Sender: TObject); | procedure TMyForm.FindDialog1Find(Sender: TObject); | ||
var | var | ||
− | |||
k: integer; | k: integer; | ||
begin | begin | ||
with Sender as TFindDialog do begin | with Sender as TFindDialog do begin | ||
− | + | k := Pos( FindText, Memo1.Lines.Text ); | |
− | k := Pos( | ||
if k>0 then begin | if k>0 then begin | ||
Memo1.Selstart := k; | Memo1.Selstart := k; | ||
− | Memo1.SelLength := length( | + | Memo1.SelLength := length( FindText ); |
end else | end else | ||
Beep(); | Beep(); |
Revision as of 12:54, 11 September 2016
TFindDialog is a component that aids in finding information. It can be found on the Dialogs tab of the Component Palette.
To activate a FindDalilog, just call its Execute() function. Create an OnFind method to perform the actual find.
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;
See also