لم اعرف كيف استعمل ال FindDialog ... !!!

حصلت طريقة للبحث داخل الميمو Memo ولكن لازلت ابحث عن طريقة للبحث

في WebBrowser

اقتباس

Question/Problem/Abstract:

How can i search text in a Memo like MS Word?

Answer:

In many of my applications I must to work with MEMOS and  accomplish search of text with the following procedure:

1. Put a Memo, this too is valid for a DBMEMO component.

2. Put a FindDialog component.

3. In the event OnFind of the component FindDialog put the following code:

procedure TForm1.FindDialog1Find(Sender: TObject);

var Buffer, Pos, tPointer : PChar;

    BuffLength            : Word;

begin

  With Sender as TFindDialog do

  begin

      GetMem(tPointer, Length(FindText) + 1);

      StrPCopy(tPointer, FindText);

      BuffLength:= Memo1.GetTextLen + 1;

      GetMem(Buffer,BuffLength);

      Memo1.GetTextBuf(Buffer,BuffLength);

      Pos:= Buffer + Memo1.SelStart + Memo1.SelLength;

      Pos:= StrPos(Pos, tPointer);

      if Pos = NIL then MessageBeep(0)

      else

      begin

        Memo1.SelStart:= Pos - Buffer;

        Memo1.SelLength:= Length(FindText);

      end;

      FreeMem(tPointer, Length(FindText) + 1);

      FreeMem(Buffer,BuffLength);

      Memo1.SetFocus; //This line highlight the found text

  end;

end;

4. Call to the FindDialog1.Execute and see the results.

I hope this serve to you

Regards

هذة طريقة وجدتها للوب براوزر .. لكن لم تنجح معاي :

http://www.swissdelphicenter.ch/en/showcod...ode.php?id=1189

يعمل معاي هاي لايت للصفحة كلها واحيانآ يعلق البرنامج .. !

ومن لدية حل اخر للبحث ارجو ان يتفضل بة .

مرحبا

يسعدني أن أقدم أليك برنامجي يأخو win32

وهو عبارة عن نوتباد

i hope that u will like

on hopeing to c u

أخوكم

New_Folder.zip

ماشاء الله عليك يا دلفي تيم

وعقبال ما اشوفك عامل برنامج افضل من الورد .. : )

الا ما عندك حل عن طريقة ربط FindDialog بال WebBrowser .... ؟

شكرا يأخي win32

اسف لأني لما أنتبه جيدآ

سأحاول إن شاء الله

سلام