скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Как создать отдельную подсказку Hint для каждой ячейки StringGrid



В приведенном примере отслеживается движение курсора мыши - при перемещении между ячейками StringGrid'а - появляется окно подсказки(hint), показывающее номер текущей строки и колонки.


TForm1 = class(TForm)
  StringGrid1: TStringGrid;
  procedure StringGrid1MouseMove(Sender: TObject;Shift: TShiftState; X, Y: Integer);
  procedure FormCreate(Sender: TObject);
private
  {Private declarations}
  Col : integer;
  Row : integer;
public
  {Public declarations}
end;

var
  Form1: TForm1;

implementation
{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.Hint := '0 0';
  StringGrid1.ShowHint := True;
end;

procedure TForm1.StringGrid1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
var
  r: integer;
  c: integer;
begin
  StringGrid1.MouseToCell(X, Y, C, R);
  with StringGrid1 do
  begin
    if ((Row <> r) or(Col <> c)) then
    begin
      Row := r;
      Col := c;
      Application.CancelHint;
      StringGrid1.Hint :=IntToStr(r)+#32+IntToStr(c);
    end;
  end;
end;






Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook