كيف أجعل الكتابة بداخل ال Edit تكون في الوسط ؟

أى خدمه أخى

unit AlignEdit;

interface 

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls; 

type 

  TAlign = (eaLeft, eaCenter, eaRight); 

  TAlignEdit = class(TEdit) 
  private 
    { Private-Deklarationen } 
    FAlign: TAlign; 
    procedure SetAlign(const Value: TAlign); 
  protected 
    { Protected-Deklarationen } 
    procedure CreateParams(var Params: TCreateParams); override; 
  public 
    { Public-Deklarationen } 
    constructor Create(AOwner: TComponent); override; 
  published 
    { Published-Deklarationen } 
    property Alignment: TAlign read FAlign write SetAlign default eaLeft; 
  end; 

procedure Register; 

implementation 

constructor TAlignEdit.Create(Aowner: TComponent); 
begin 
  inherited Create(AOwner); 
  FAlign := eaLeft; 
end; 

procedure TAlignEdit.SetAlign(const Value: TAlign); 
begin 
  if FAlign <> Value then 
  begin 
    FAlign := Value; 
    RecreateWnd; 
  end; 
end; 

procedure TAlignEdit.CreateParams(var Params: TCreateParams); 
begin 
  inherited; 
  case FAlign of 
    eaLeft: Params.Style   := Params.Style or ES_LEFT; 
    eaCenter: Params.Style := Params.Style or ES_CENTER; 
    eaRight: Params.Style  := Params.Style or ES_RIGHT; 
  end; 
end; 

procedure Register; 
begin 
  RegisterComponents('Arabteam', [TAlignEdit]); 
end; 

end.

قم بعمل الكمبوننت السابق وذلك بإختيار

File

New

Unit

ثم احفظها بإسم AlignEdit لابد من هذا الإسم لا تحاول تغييره

سيقوم الدلفى بحفظها فى فهرس الـ LIB

بعد ذلك أغلق الملف

ثم من قائمة Component

Install compnent

من الشاشة التالية اختار Browse

اختر منها الملف AlignEdit.pas

واتبع الشاشات التالية

ستجد انه تم انشاء مجموعه باسم Arabgate وسط مجموعات الكمبوننت

ستجد بداخلها Edit

ومن نافذة الخصائص ستجد ان خاصية الـ Alignment قد ظهرت

وعموماً الملف مرفق تسهيلاً عليك

(f)

alignedit.rar

شكرا اخي أبراهيم دياب5 سأجرب وادعوا لك بالصحة وزيادة العلم ونفع الآخرين .

(gift)(f)(gift)(f)(gift)(f)(gift)(f):):D:)(gift)(f)(gift)(f)(gift)(f)

لكن لماذا يحصل هذا مع الدلفي؟!!!

حتى combo box وغيره لا يمكن استخدامها لبرنامج باللغة العربية بسهولة فكل شيء هو من اليسار إلى اليمين وإذا اردت ان تقلبها إلى (من اليمين إلى اليسار) فإما ان تضطر المستخدم إلى تغيير إعدادات اللغة لبرنامج أو تستخدم دوال API

أنيس لا يعرف السبب فالإجابة عند المُصنع:eek:، فربما المُصنع يستخدم برنامج تصنيع غير عربي:cool: فهكذا يفرض عليه هذا .. إذا كان المُصنع عربي، أما إذا كان اجنبي هذه ليس بمشكله ( للأسف:confused: لم يصنع العرب بعد أي لغة برمجة عربيه أو أي كمبايلر عربي :(فكل لغات البرمجة كلماتها المحجوزة هي مصطلحات انجليزية شبه عامية بمعنى آخر أنه لو أحضرت طفلين:mad: احدهم عربي والطفل الآخر انجليزي لتعلمهم لغة برمجة غير محدده فستجد الانجليزي يتعلم بسرعة لانه يكتب بلغته ويقراء لغته وكأنه يتحدث مع كائن من نفس بلده .. عجب ) قد تستغرب لهجتي هذه، :(فصحيح اننا كلنا عرب ولكن انت من بلد وانا من بلد آخر وهذا اختلاف، :'(ربما نتحد بشئ واحد وهو اننا لن نصنع شئ عربي أصله عربي .

لا تحزن سيأتي يوم وووووااااااااااااااااا (clock)

(gift)(f)(gift)(f)(gift)(f):cool:(gift)(f)(gift)(f)(gift)(f)

وداع يا صاح