Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 15, средняя оценка - 4.80
asoiiu
0 / 0 / 0
Регистрация: 09.04.2011
Сообщений: 24
#1

Подсказки (Hint) в StringGrid - Delphi

25.04.2011, 18:26. Просмотров 2340. Ответов 2
Метки нет (Все метки)

Здравствуйте. Мне нужно сделать так, чтобы при наведении (клике) мышкой на ячейке в определенной колонке (4-ой) появлялась подсказка, относящаяся к введенному в эту ячейку тексту. В моем коде срабатывает только последняя подсказка (1-ая, если прописываю break после 1-го условия) для всей таблицы. Текст в столбце может повторяться в разных строках и должен появляться соответствующий Hint. Подскажите, пожалуйста, как можно это сделать.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm12.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var i:integer;
begin
Form12.StringGrid1.ShowHint:=true;
 for i:=1 to Form12.StringGrid1.RowCount-1 do
  if Form12.StringGrid1.Cells[3,i]='15.61.2'
   then Form12.StringGrid1.Hint:='Мука из зерновых культур; смеси из них'
   else
    if Form12.StringGrid1.Cells[3,i]='15.61.21'
   then Form12.StringGrid1.Hint:='Мука пшеничная и пшенично-ржаная';
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.04.2011, 18:26
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Подсказки (Hint) в StringGrid (Delphi):

Подсказки Hint в StringGrid - Delphi
Всем привет! При создании темы из предложенных форумом похожих одна относится к аналогичной моей ( автор ХаКо...

Подсказки - Hint - Delphi
Народ, подскажите пожалуйста как сделать, чтобы всплывающая подсказка отображалась еще и строке статуса. На лекции препод говорил, если...

Hint или всплывающие подсказки в DBLookupCombox - Delphi
Подскажите как сделать всплывающие подсказки при наведении на длиную строку из списка DBLookupCombox которая показывала имено эту строчку...

Отображение номера ячейки StringGrid в Hint - Delphi
У меня есть StringGrid с одной строчкой и некоторым кол-вом колонок. По наведении мыши на определенную ячейку, на экран в Hint выводится...

Как в StringGrid програмно вызвать показ Hint напротив ячейки - Delphi
Всем привет. Задача такая: Есть StringGrid, нужно у ячейки c индексами x и y вывести Hint по нажатию кнопки на форме например. Или,...

Delphi 7 Stringgrid Нужно сделать цикл для заполнения Stringgrid данными из другого Stringgrid - Delphi
Нужно чтобы из Stringgrid1 данные переносились в Stringgrid2 Но ТОЛЬКО ПО УСЛОВИЮ Таблицы Stringgrid2 На рис всё показано. За работающий...

2
Zaxelf
83 / 83 / 5
Регистрация: 14.05.2010
Сообщений: 223
26.04.2011, 03:40 #2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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;
Для каждой ячейки выводится свой Hint. Остаётся только составить отдельную таблицу, где они будут храниться.
0
asoiiu
0 / 0 / 0
Регистрация: 09.04.2011
Сообщений: 24
04.05.2011, 19:15  [ТС] #3
Извиняюсь, но не подскажете где в этом коде происходит ссылка на таблицу, в которой хранится текст подсказок? Честно говоря, вообще не могу разобраться в этом коде.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.05.2011, 19:15
Привет! Вот еще темы с ответами:

Задать время отображения подсказки (Hint) для компонента! - Delphi
Как можно задать время отображения подсказки для какого нибуть компонента на форме? Мне нужно его подолжить!

Неясный HINT [Hint] Unit1.pas(2910): Value assigned to 'a' never used - Delphi
var a:integer; . . . . a:=0; . . . .

Hint - Delphi
Для каждой кнопки определить подсказку (Hint), описывающую функцию кнопки, причем подсказка появляется не стандартным образом, а вместе с...

Hint... - Delphi
Здравствуйте! Как обновить время? Пишу: procedure TForm1.PanelHint(Sender:TObject); begin statusbar1.Panels.Text:=application.Hint; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru