با سلام خدمت دوستان عزیز
می خواهم یه ادیتور مانند دلفی بسازم که ابتدای یک دستور رو تایپ کنم ،یک لیست از دستورات که در دیتابیس وجود داره نمایش بده و با انتخاب آن به ادیتور وارد شود.
لطفا راهنمایی کنید
شما باید در رویداد onkeypress باکستون مثلا memo اخرین کلمه که در حال تایپ هست رو بگیرین با استفاده از توابع کار با string بعد تو دیتابیس بگیردین اگه مقدار مشابه دادشت تو یه popup menu به کاربر نشون بدین تا انتخاب کنه
(۰۷-خرداد-۱۳۹۸, ۰۹:۴۴:۵۸)lord_viper نوشته است: [ -> ]شما باید در رویداد onkeypress باکستون مثلا memo اخرین کلمه که در حال تایپ هست رو بگیرین با استفاده از توابع کار با string بعد تو دیتابیس بگیردین اگه مقدار مشابه دادشت تو یه popup menu به کاربر نشون بدین تا انتخاب کنه
ممنون لطفا اگه سورس موجود هست بگزارید
این کدها رو تو رویداد کلیک 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 برای این کار استفاده کنید