كيف أعطي برمجياً عمل زر Tab في الملفات النصية

يا شباب الشغلة ضرورية وين معلوماتكم

حسب معلوماتي الMemo لاتدعم الTap ..

اظن انه ممكن باستخدام تابع امهلني كم يوم حتى اجرب واعطيك الطريقة

أنا بقيد فكرة الأخ عروه حيث أنه من المستحيل تطبيق ال Tabعلى Memo

ويا أخ زاهر متتعبش نفسك مش هتمشي معاك لإن ال Tab ليس لها بعد محدد بس ممكن تجرب مع Richedit

يا شباب أنا قلت عنصر الـ Memo مثلاُ يعني إن كان ممكن في "الريش إديت" معليش

دلوني شلون

أخيرا لقيت الحل :

كيف نجعل زر الTab يعمل مع عنصر ال Memo :

Memo إفتراضيا لايقبل tab . ولجعلة يتعامل مع زر tab بإمكانك إضافة هذه الشفره في FormCreate :

procedure TForm1.FormCreate(Sender: TObject);
var
   DialogUnitsX : LongInt;
   PixelsX : LongInt;
   i : integer;
   TabArray : array[0..4] of integer;
begin
   Memo1.WantTabs := true;
   DialogUnitsX := LoWord(GetDialogBaseUnits);
   PixelsX := 25;
   for i := 1 to 5 do begin
    TabArray[i - 1] :=
      ((PixelsX * i ) * 4) div DialogUnitsX;
   end;
   SendMessage(Memo1.Handle,
               EM_SETTABSTOPS,
               5,
               LongInt(@TabArray));
   Memo1.Refresh;
end;