Глючит FindDialog

← →
Oyster © (2004-06-02 12:23) [0]

Вот пишу блокнот, там такой обработчик:

procedure TMainForm.ItemFindClick(Sender:TObject);
var s,MemoText:String;k,f:integer;
begin
if FindDialog.Execute then
begin
if frMatchCase in FindDialog.Options then
begin
s:=FindDialog.FindText;
MemoText:=TextArea.Text;
end else
begin
s:=AnsiLowerCase(FindDialog.FindText);
MemoText:=AnsiLowerCase(TextArea.Text);
end;
k:=TextArea.SelStart;
Delete(MemoText,1,k);
f:=Pos(s,MemoText);
if f=0 then MessageBox(Application.Handle,
PAnsiChar(s+" не найдено"),"Не найдено",
MB_OK+MB_IconInformation) else
begin
TextArea.SelStart:=k+f-1;
TextArea.SelLength:=Length(s);
FindDialog.Execute;
end;
end;
end;

Так вот, когда выполняется первое Execute, прога не останавливается, а работает дальше, и выдает " не найдено.". А потом нажимаю "Найти далее", а оно не ищет. В чем проблема?

← →
MetalFan © (2004-06-02 12:30) [1]

Occurs when the user clicks the Find Next button.

property OnFind: TNotifyEvent;

Description

Write an OnFind event handler to perform the requested search when the user clicks Find Next in the dialog. Use the Options flags to determine how the search is conducted.
доходит, что нужно делать?

Спасибо, дошло :)

Глючит FindDialog Найти похожие ветки