DELPHI/Часто задаваемые вопросы и ответы на них/Пользовательский интерфейс



На главную

Подписка

Новости

Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Пользовательский интерфейс / Как создать отдельную подсказку (hint) для каждой ячейки StringGrid?

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

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


type
    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;

Источник: Дельфи. Вокруг да около.

Источник получения информации: http://www.delphimaster.ru