أصدقائي...أرجو الافادة
يقوم التطبيق الذي أعمل عليه حاليا بخلق قوائم فرعية submenu's بحيث يجد كل مستخدم لهذا التطبيق اسمه في هذه القائمة واستخدمت الكود
procedure TForm1.FormCreate(Sender: TObject);
var zx:TMenuItem;
begin
while not ADOTable1 .Eof do begin
// ListBox1.Items.Add(ADOTable1 .FieldByName('user').AsString);
zx:=TMenuItem .Create(MainMenu1 );
zx.Caption :=ADOTable1User .Value;
MainMenu1 .Items [0].Items [1].Add(zx);
ADOTable1 .Next;
MainMenu1 .Items [0].Items [1].Items[zx.MenuIndex].OnClick :=condلكني أريد أن أخذ المستخدم الذي أنقر عليه من القائمة لانه دائما يأخذ المستخدم الأخير فكيف ذللك وهل العبارة التاية صحيحة
ADOTable1 .RecNo :=MainMenu1 .Items [0].Items [1].Items[zx.MenuIndex ];
استخدمت العبارة السابقة في الاجراء cond في محاولتي لعمل ذلك ولكن رسالة خطأ تظهر
(اريد أن أحصل على رقم ال item الذي انقر عليه)
سامحوني على الاطالة.