دخول

mido10885 · 24-11-2009, 01:40 PM

كيف استخدم 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

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة