• 0
karikaaaa

كيف أستعمل حدث MouseMove مع StringGrid

سؤال

بسم الله الرحمن الرحيم

أريد مثلاّ عند تحريك الفارة يعطى رقم الخلية(Cells) من StringGrid الى edit1.text

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

1 إجابات على هذا السؤال .

  • 0

السلام عليكم

جرب

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
  acol, arow: Integer;
  P: Tpoint;
begin
  P.X := X;
  P.Y := Y;
  StringGrid1.MouseToCell(X, Y, acol, arow);
  Edit1.Text := format('%d %d', [acol, arow]);
end;

و فقكم الله.

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .