[سوال] ساخت EDITOR مانند دلفی

[hameds606]

با سلام خدمت دوستان عزیز
می خواهم یه ادیتور مانند دلفی بسازم که ابتدای یک دستور رو تایپ کنم ،یک لیست از دستورات که در دیتابیس وجود داره نمایش بده و با انتخاب آن به ادیتور وارد شود.
لطفا راهنمایی کنید

[lord_viper]

شما باید در رویداد onkeypress باکستون مثلا memo اخرین کلمه که در حال تایپ هست رو بگیرین با استفاده از توابع کار با string بعد تو دیتابیس بگیردین اگه مقدار مشابه دادشت تو یه popup menu به کاربر نشون بدین تا انتخاب کنه

[hameds606]

شما باید در رویداد onkeypress باکستون مثلا memo اخرین کلمه که در حال تایپ هست رو بگیرین با استفاده از توابع کار با string بعد تو دیتابیس بگیردین اگه مقدار مشابه دادشت تو یه popup menu به کاربر نشون بدین تا انتخاب کنه

ممنون لطفا اگه سورس موجود هست بگزارید

[lord_viper]

این کدها رو تو رویداد کلیک 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 برای این کار استفاده کنید