Текущий архив: 2004.07.04;
Скачать: CL | DM;

Вниз

Можно ли в StringGrid е каждой ячейки ...   Найти похожие ветки 

← →
Johnny Raw ©   (2004-06-20 16:26) [0]

Можно ли в StringGrid"е каждой ячейке присвоить что-то типа хинта.

---

← →
jack128 ©   (2004-06-20 16:55) [1]

Что то типа такого:

type
 TForm1 = class(TForm)
   sg: TStringGrid;
   procedure FormCreate(Sender: TObject);
   procedure sgMouseMove(Sender: TObject; Shift: TShiftState; X,
     Y: Integer);
 private
   { Private declarations }
   OldCol: Integer;
   OldRow: Integer;
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
 i, j: Integer;
begin
 OldCol := -1;
 OldRow := -1;
 sg.ShowHint := True;
 for i := 0 to sg.ColCount - 1 do
   for j := 0 to sg.RowCount - 1 do
     sg.Cells[i, j] := Format("Col = %d, Row = %d", [i, j]);
end;

procedure TForm1.sgMouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
var
 R, C: Integer;
 p: TPoint;
begin
 sg.MouseToCell(X, Y, C, R);
 if (c <> OldCol) or (r <> OldRow) then
 begin
   Application.CancelHint;
   if (c >= 0) and (r >= 0) then
   begin
     sg.Hint := sg.Cells[c, r];
     p := sg.ClientToScreen(Point(x, y));
     Application.ActivateHint(p);
   end
   else
     sg.Hint := "";
   OldRow := r;
   OldCol := c;
 end;
end;

---

← →
Johnny Raw ©   (2004-06-20 17:36) [2]

Ясненько, спасибо, но мне надо маленько не то.
Есть у меня грид 50х50 etc. В ячейки я заношу названия товаров etc. и мне нужно к этим ячейкам прикрепить названия магазинов, которые будет показыватся только при наведении мышки. (т.е. есть ли что-то пипа тэга для каждой ячейки?)

---

← →
jack128 ©   (2004-06-20 18:02) [3]

ну так поменяй строку >  sg.Hint := sg.Cells[c, r]; на то, что тебе надо.. Всего делов то..

---

← →
Johnny Raw ©   (2004-06-20 18:28) [4]

Наверно я сильно туплю, извините, весь день за компом сижу, но на что поменять-то? Магазинов-то много. Например sg.cells[1,1]="пиво балтика" а куплено в магазине "Крепость" а sg.cells[2,1]="брюки" а куплены в магазине "Gucci" А где мне хранить названия магазинов и как потом узнать какой хинт показывать?

---

← →
jack128 ©   (2004-06-20 18:42) [5]

>  А где мне хранить названия магазинов и как потом узнать
> какой хинт показывать?

ну например в динамическом(или в статическом, если кол-во ячеек в гриде фиксированно) массиве строк. вобщемм читай хелп и книги и будет тебе счастье..

---

Страницы: 1 вся ветка

Текущий архив: 2004.07.04;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.527 c