delphi4arab منتديات دلفي للعرب

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته

هذا مثال بسيط لمكون دلفي ValueListEditor1 موجود في الاساس(لايحتاج اضافة او تثبيت)
تجدونه بداخل لسان او تبويب additional متعدد الاستخدامات حسب ما تريد ...
السورس في المرفقات وهذا هو الكود :

كود :
[align=left]unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ValueListEditor1: TValueListEditor;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
  x:string;
  z:Integer;
begin
  x:='ÇÞáÇã ÑÕÇÕ';
  z:=2;
ValueListEditor1.Strings.Add(Format('%s=%d',[x,z]));


end;

end.
[/align]

مبرمج هاوي