امتیاز موضوع:
  • 0 رأی - میانگین امتیازات: 0
  • 1
  • 2
  • 3
  • 4
  • 5
ساخت EDITOR مانند دلفی
نویسنده پیام
hameds606 آفلاین
تازه وارد

ارسال‌ها: 3
موضوع‌ها: 2
تاریخ عضویت: اسفند ۱۳۹۰

تشکرها : 1
( 0 تشکر در 0 ارسال )
ارسال: #1
Question  ساخت EDITOR مانند دلفی
با سلام خدمت دوستان عزیز
می خواهم یه ادیتور مانند دلفی بسازم که ابتدای یک دستور رو تایپ کنم ،یک لیست از دستورات که در دیتابیس وجود داره نمایش بده و با انتخاب آن به ادیتور وارد شود.
لطفا راهنمایی کنید
۰۵-خرداد-۱۳۹۸, ۲۳:۳۶:۵۶
ارسال‌ها
پاسخ
lord_viper غایب
مدیر کل انجمن
*****

ارسال‌ها: 3,943
موضوع‌ها: 352
تاریخ عضویت: بهمن ۱۳۸۴

تشکرها : 5169
( 9846 تشکر در 2640 ارسال )
ارسال: #2
RE: ساخت EDITOR مانند دلفی
شما باید در رویداد onkeypress باکستون مثلا memo اخرین کلمه که در حال تایپ هست رو بگیرین با استفاده از توابع کار با string بعد تو دیتابیس بگیردین اگه مقدار مشابه دادشت تو یه popup menu به کاربر نشون بدین تا انتخاب کنه

[تصویر:  xshon.png]
از آن نماز که خود هیچ از آن نمی فهمی خدا چه فایده و بهره اکتساب کند
تفاخری نبود مر خدای عالم را که چون تو ابلهی او را خدا حساب کند
۰۷-خرداد-۱۳۹۸, ۰۹:۴۴:۵۸
وب سایت ارسال‌ها
پاسخ
تشکر شده توسط : hameds606, babyy, hadikh73, 1نفر
hameds606 آفلاین
تازه وارد

ارسال‌ها: 3
موضوع‌ها: 2
تاریخ عضویت: اسفند ۱۳۹۰

تشکرها : 1
( 0 تشکر در 0 ارسال )
ارسال: #3
RE: ساخت EDITOR مانند دلفی
(۰۷-خرداد-۱۳۹۸, ۰۹:۴۴:۵۸)lord_viper نوشته است: شما باید در رویداد onkeypress باکستون مثلا memo اخرین کلمه که در حال تایپ هست رو بگیرین با استفاده از توابع کار با string بعد تو دیتابیس بگیردین اگه مقدار مشابه دادشت تو یه popup menu به کاربر نشون بدین تا انتخاب کنه
ممنون لطفا اگه سورس موجود هست بگزارید
۰۷-خرداد-۱۳۹۸, ۱۳:۱۰:۴۷
ارسال‌ها
پاسخ
lord_viper غایب
مدیر کل انجمن
*****

ارسال‌ها: 3,943
موضوع‌ها: 352
تاریخ عضویت: بهمن ۱۳۸۴

تشکرها : 5169
( 9846 تشکر در 2640 ارسال )
ارسال: #4
RE: ساخت EDITOR مانند دلفی
این کدها رو تو رویداد کلیک memo میزاری
کد:
Procedure TfrmMain.Memo1Click(Sender: TObject);
var
  Line: Integer;
  wrap : boolean;
begin
  wrap := (Sender as TMemo).WordWrap;
  if wrap  then
   (Sender as TMemo).WordWrap := false;

  with (Sender as TMemo) do
  begin
    Line      := Perform(EM_LINEFROMCHAR, SelStart, 0);
    SelStart  := Perform(EM_LINEINDEX, Line, 0);
    SelLength := Length(Lines[Line]);
  end;
 if wrap  then
   (Sender as TMemo).WordWrap := wrap;
end;
قابلیتهای memo برای ساخت ادیتور کمه بهتره از richedit برای این کار استفاده کنید

[تصویر:  xshon.png]
از آن نماز که خود هیچ از آن نمی فهمی خدا چه فایده و بهره اکتساب کند
تفاخری نبود مر خدای عالم را که چون تو ابلهی او را خدا حساب کند
۱۱-خرداد-۱۳۹۸, ۱۰:۰۷:۲۳
وب سایت ارسال‌ها
پاسخ
تشکر شده توسط : hadikh73, babyy, 1نفر


موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  دریافت اطلاعات از سخت افزار در دلفی m59alizadeh 6 5,867 ۰۶-آذر-۱۳۹۵, ۱۳:۰۱:۴۹
آخرین ارسال: lord_viper
  تبدیل کد به دلفی The.Ghost 2 2,709 ۱۶-فروردین-۱۳۹۴, ۲۲:۱۵:۰۴
آخرین ارسال: veyskarami
  ارسال ایمیل با دلفی h_mohamadi 13 7,978 ۱۴-آبان-۱۳۹۳, ۱۸:۰۰:۴۳
آخرین ارسال: babyy
  فیلم آموزش مدیریت استثنائات در دلفی بهروز عباسی 2 2,352 ۳۰-مرداد-۱۳۹۳, ۱۵:۵۳:۰۸
آخرین ارسال: veyskarami
  [سوال] ریجستری در دلفی spase 2 2,170 ۱۸-خرداد-۱۳۹۳, ۱۵:۵۶:۴۷
آخرین ارسال: veyskarami
  کامپوننت ترد در دلفی hesarkhani 2 2,696 ۰۲-اردیبهشت-۱۳۹۳, ۲۲:۰۸:۴۵
آخرین ارسال: The.Ghost
  سورس دلفی lord_viper 46 52,180 ۰۹-دى-۱۳۹۲, ۱۹:۳۸:۳۳
آخرین ارسال: بهروز عباسی
  [آموزشی] 6700 نکته و کد دلفی lord_viper 0 2,116 ۰۴-دى-۱۳۹۲, ۱۰:۰۴:۳۱
آخرین ارسال: lord_viper
  اخبار دلفی lord_viper 10 7,665 ۲۹-مرداد-۱۳۹۲, ۰۲:۰۳:۴۰
آخرین ارسال: veyskarami
  meerkat ساخت درایور کرنل با دلفی lord_viper 2 2,890 ۱۴-خرداد-۱۳۹۲, ۱۸:۰۹:۴۶
آخرین ارسال: lord_viper

پرش به انجمن:


کاربرانِ درحال بازدید از این موضوع: 1 مهمان

صفحه‌ی تماس | IranVig | بازگشت به بالا | | بایگانی | پیوند سایتی RSS