مساعدة في listview

هدا الموقع يظهر أفضل في المتصفحات الحديثة مع جافاسكريبت مفعلة.

مساعدة في listview

condor890ri

اضفت زرين في listview من نوع text button
سؤال كيف اضغ اجراء لكل زر على حد
لانه في حدث onclick ل listview يكرره لزريين

condor890ri

الحل

procedure TForm4.ListView1ButtonClick(const Sender: TObject;
  const AItem: TListItem; const AObject: TListItemSimpleControl);
  begin
  if AObject.name = 'butt1' then
       showmessage('Delete')
     else if AObject.Name = 'buut2' then
       showmessage('Edit');
end;