وقتی روی یه سطر از شئ DBGrid راست كلیك میشه میخوام یه popup menu باز بشه .

 

شاید با این شئ نشه این كارو كرد

یه شئ ای مثل DBGrid میخوام كه قابلیت نمایش یه تصویر كوچیك در فیلد اول رو هم داشته باشه.

همچین شئ ای وجود داره.

یعنی من خودم دیدم تا حالا

اگه كسی داره ممنون میشم

PFN Code

---

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  bitmap : TBitmap;
  fixRect : TRect;
  bmpWidth : integer;

  imgIndex : integer;
begin
  fixRect := Rect;
  if Column.Field = ADOTable1.Fields.FieldByName('ID') then
  begin
      imgIndex := 0;
    bitmap := TBitmap.Create;
    try
      ImageList1.GetBitmap(imgIndex,bitmap);
      bmpWidth := (Rect.Bottom - Rect.Top);
      fixRect.Right := Rect.Left + bmpWidth;
      DBGrid1.Canvas.StretchDraw(fixRect,bitmap);
    finally
      bitmap.Free;
    end;

    fixRect := Rect;
    fixRect.Left := fixRect.Left + bmpWidth;
  end;

  DBGrid1.DefaultDrawColumnCell(
     fixRect,
     DataCol,
     Column,
     State);
end;
 

ببین وقتی شئ popup menu رو به دیبی گرید اختصاص بدیم حتی اون موقع كه روی فضای سفید و خالی دیبی گرید هم راست كلیك كنیم popup ظاهر میشه كه من نمیخوام اینطوری باشه.

در ضمن یه سوال دیگه.

وقتی كه یه یه سطر از ذیبی گرید آبی رنگ یا فعال هست كدوم خصوصیتش true هست؟

یعنی بدون اینكه روی سطری كلیك بشه خودش آبی باشه.

بعضی وقتا به محض ورود به فرم یه سطر از دیبی آبی هست میخواستم بدونم در این حالت چه خصوصیتی رخ میده.

مرسی فرهاد جان.

 

PFN Code

---

procedure TForm1.FormCreate(Sender: TObject);
begin
  DBGrid1.DataSource.DataSet.MoveBy(1);
  dbgrid1.SelectedRows.CurrentRowSelected:=true;
end;

سوال اول من این بود که یه popup منو فقط و فقط به سطرهای یه DBGrid اختصاص داده بشه نه جاهای دیگش.

در واقع با این شئ شاید این کار امکان پذیر نباشه.

 

حالا اگه میشه این کدهایی که نوشتی رو توی دلفی بنویس و برام بزار چون زیاد با این کد ها آشنا نیستم

مرسی