finddialog options - نسخة قابلة للطباعة

finddialog options - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : finddialog options (/showthread.php?tid=1345)

finddialog options - mido10885 - 24-11-2009

كيف استخدم options فى ال finddialog
يعنى up و Down
و match case
انا أستخدم الكود التالي مع finddialog find

كود :
with TFindDialog(Sender) do begin
  TextLength:=Length(Editor.Lines.Text);
  SPos:=Editor.SelStart;
  SLen:=Editor.SelLength;
  SearchString := Copy(Editor.Lines.Text,SPos + SLen + 1,TextLength - SLen + 1);
  SelPos := Pos(FindText, SearchString);
  if SelPos > 0 then
   begin
    PreviousFoundPos := SelPos + Slen - 1;
    Editor.SelStart := (SelPos - 1) + (SPos + SLen);
    Editor.SelLength := Length(finddialog1.FindText);
    Editor.SetFocus;
   end
  else
   ShowMessage('Cannot find "' + FindDialog1.FindText + '"');
  end

finddialog options - kachwahed - 24-11-2009

السلام عليكم
من هنا:

كود :
http://delphi.about.com/od/vclusing/l/aa100599.htm

كود :
http://docwiki.embarcadero.com/CodeSamples/en/FindText_%28Delphi%29

بالتوفيق.

finddialog options - mido10885 - 24-11-2009

شكرااااااااااااا