Делфи MESSAGEBOX

@aly98 · Регистрация: 26.03.2017

Студворк — интернет-сервис помощи студентам

Куда впихнуть месседжбокс,если мне надо чтобы он был после раскрашивания одного из стринггрида? И как его записать? Помогите,пожалуйста

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
procedure TForm2.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 
if flag  then
         for i:= 1 to n do begin
  if   a[i]= StrToInt(StringGrid1.Cells[ACol, ARow]) then    //1
       with StringGrid1.Canvas do begin
       Brush.Color:=clRed;
       FillRect(StringGrid1.CellRect(ACol, ARow));
       Font.Color:=clblack;
       TextOut(
        StringGrid1.CellRect(ACol,ARow).Left+2,
        StringGrid1.CellRect(ACol,ARow).Top+2,
        StringGrid1.Cells[ACol, ARow]);
 
       end; end;
 if flag then
 for i:= 1 to n do begin
  if   a[i]= StrToInt(StringGrid2.Cells[ACol, ARow]) then // èãðîê1
       with StringGrid2.Canvas do begin
       Brush.Color:=clRed;
       FillRect(StringGrid2.CellRect(ACol, ARow));
       Font.Color:=clblack;
       TextOut(
        StringGrid2.CellRect(ACol,ARow).Left+2,
        StringGrid2.CellRect(ACol,ARow).Top+2,
        StringGrid2.Cells[ACol, ARow]);
 
       end;
 
   end;
if flag then
 for i:= 1 to n do begin
  if   a[i]= StrToInt(StringGrid3.Cells[ACol, ARow]) then//2
       with StringGrid3.Canvas do begin
       Brush.Color:=clBlue ;
       FillRect(StringGrid3.CellRect(ACol, ARow));
       Font.Color:=clblack;
       TextOut(
        StringGrid3.CellRect(ACol,ARow).Left+2,
        StringGrid3.CellRect(ACol,ARow).Top+2,
        StringGrid3.Cells[ACol, ARow]);
 
        end;
        end;
 if flag then
 for i:= 1 to n do begin
  if   a[i]= StrToInt(StringGrid4.Cells[ACol, ARow]) then
       with StringGrid4.Canvas do begin                     //3
       Brush.Color:=clFuchsia ;
       FillRect(StringGrid2.CellRect(ACol, ARow));
       Font.Color:=clblack;
       TextOut(
        StringGrid4.CellRect(ACol,ARow).Left+2,
        StringGrid4.CellRect(ACol,ARow).Top+2,
        StringGrid4.Cells[ACol, ARow]);
 
       end;
 
   end;
   if flag then
 for i:= 1 to n do begin
  if   a[i]= StrToInt(StringGrid5.Cells[ACol, ARow]) then  //2
       with StringGrid5.Canvas do begin
       Brush.Color:=clBlue;
       FillRect(StringGrid5.CellRect(ACol, ARow));
       Font.Color:=clblack;
       TextOut(
        StringGrid5.CellRect(ACol,ARow).Left+2,
        StringGrid5.CellRect(ACol,ARow).Top+2,
        StringGrid5.Cells[ACol, ARow]);
 
       end;
 
   end;
   if flag then
 for i:= 1 to n do begin
  if   a[i]= StrToInt(StringGrid6.Cells[ACol, ARow]) then  //3
       with StringGrid6.Canvas do begin
       Brush.Color:=clFuchsia ;
       FillRect(StringGrid6.CellRect(ACol, ARow));
       Font.Color:=clblack;
       TextOut(
        StringGrid6.CellRect(ACol,ARow).Left+2,
        StringGrid6.CellRect(ACol,ARow).Top+2,
        StringGrid6.Cells[ACol, ARow]);
 
       end;

@aly98 · 19.04.2017, 02:29 **[ТС]**

Сообщение от northener

Ну значит "проехали". Юнит конечно ваш, но код ...

что с ним не так? помогите вывести сообщение о победе игроков, и все)

@northener · 19.04.2017, 02:45

Сообщение от aly98

что с ним не так?

А Х.З. что с ним не так Вы не захотели приложить архив с проектом к сообщению на форуме. Не иначе как стеснялись столь нагло выдавать чужой код как свой.
P.S. И до сих пор вы не ответили на мой простой (для тех, кто сам пишет код) вопрос.
Так какую помощь ты ожидаешь?

@aly98 · 19.04.2017, 02:48 **[ТС]**

Сообщение от northener

А Х.З. что с ним не так Вы не захотели приложить архив с проектом к сообщению на форуме. Не иначе как стеснялись столь нагло выдавать чужой код как свой.
P.S. И до сих пор вы не ответили на мой простой (для тех, кто сам пишет код) вопрос.
Так какую помощь ты ожидаешь?

не приложила, т.к. у меня в проекте 6 форм, и на каждой свое происходит, смысл вам от всего моего проекта?

@northener · 19.04.2017, 02:53

Сообщение от aly98

не приложила, т.к. у меня в проекте 6 форм, и на каждой свое происходит, смысл вам от всего моего проекта?

А смысл вам спрашивать на форуме как "пойти туда, не знаю куда и найти то, не знаю что"?

@aly98 · 19.04.2017, 02:56 **[ТС]**

Сообщение от northener

А смысл вам спрашивать на форуме как "пойти туда, не знаю куда и найти то, не знаю что"?

вот моя форма + код который был выше

@northener · 19.04.2017, 03:05

Сообщение от aly98

вот моя форма + код который был выше

Не по теме:

При такой формулировке вопроса может помочь только фриланс.

@D1973 · 19.04.2017, 04:42

Сообщение от aly98

смысл вам от всего моего проекта?

aly98, смысл в том, что лично мне совершенно не охота руками оформлять форму, а потом, глядя на текст кода, пытаться угадать: что такое N21? какой из показанных на рисунке СтрингГридов очень содержательно называется StringGrid5? где там должен быть SpeedButton1, которого на рисунке я не вижу, но в коде он ест? ну и т.д. Все это известно Вам, но никак не нам, грешным...
P.S. Архив с проектом заливайте прямо на форум, без использования всяческих файлообменников. В архиве должны присутствовать только файлы *.dpr, *.dfm, *.pas, остальное ни к чему.

@GoodWeather · 19.04.2017, 17:00

Дополню немного.
Файл *.dpr - файл проекта, он один, обычно в нём только автоматический код, если вы ничего там не писали сами - можно не прилагать.
Файлы *.dfm, *.pas - у форм они идут парами (обычно с одинаковым именем), где первое это xml-подобное описание структуры/свойств/обработчиков, второе это сам код.

Так вот, желательно прикладывать хотя бы *.dfm, *.pas вашей формы с которой у вас вопросы возникли.

Новые блоги и статьи Все статьи Все блоги /
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .
Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .

@GoodWeather 886 / 588 / 179 Регистрация: 28.02.2017 Сообщений: 2,359 Записей в блоге: 1
	19.04.2017, 17:00
	Дополню немного. Файл `.dpr` - файл проекта, он один, обычно в нём только автоматический код, если вы ничего там не писали сами - можно не прилагать. Файлы `.dfm, .pas` - у форм они идут парами (обычно с одинаковым именем), где первое это xml-подобное описание структуры/свойств/обработчиков, второе это сам код. Так вот, желательно прикладывать хотя бы `.dfm, *.pas` вашей формы с которой у вас вопросы возникли. 0