Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 6 563

/ вопрос решён /

Здоровья Вам!
Как в конструкцию if - then - else вставлять подпрограммы ?

Приложение:
  1.  
  2.  
  3. if (X>=Button[i].Left) and (X<=(Button[i].Left+Button[i].Width)) and
  4. (Y>=Button[i].Top) and (Y<=(Button[i].Top+Button[i].Height))
  5. then
  6.  
  7. j := i+1
  8. else
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16. private
  17. { Private declarations }
  18. public
  19. { Public declarations }
  20.  
  21. procedure calculation(i: Integer; j: Integer);
  22. end;
  23. var
  24. Form3: TForm3;
  25. Button: array[1..6] of TButton;
  26.  
  27. PriorityPass : Array[1..6] of Integer;
  28.  
  29. implementation
  30. uses Unit1;
  31. {$R *.dfm}
  32.  
  33. procedure TForm3.calculation(i: Integer; j: Integer);
  34. begin
  35.  
  36. j := i+1 ;
  37. end;
  38.  
  39. procedure TForm3.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  40. Y: Integer);
  41. begin
  42. for i:= 1 to 6 do
  43. begin
  44. if (X>=Button[i].Left) and (X<=(Button[i].Left+Button[i].Width)) and
  45. (Y>=Button[i].Top) and (Y<=(Button[i].Top+Button[i].Height))
  46. then
  47.  
  48.  
  49.  
  50. end;
  51. end;
  52.  
  53.  
  54.  
  55.  
  56.  


zvygin1964 Вопрос решён, но можно продолжить его обсуждение в мини-форуме

Вопрос задал: zvygin1964 (статус: Посетитель)
Вопрос отправлен: 9 сентября 2014, 15:54
Состояние вопроса: решён, ответов: 0.


Мини-форум вопроса

Всего сообщений: 2; последнее сообщение — 12 сентября 2014, 11:10; участников в обсуждении: 2.

9 сентября 2014, 20:15: Статус вопроса изменён на решённый (изменил автор вопроса — zvygin1964): Оказывается, это называется "вложенность".

for i:= 1 to 6 do
begin
if (X>=Button[i].Left) and (X<=(Button[i].Left+Button[i].Width)) and//Left-ширина компонента, Width-координата левого края
(Y>=Button[i].Top) and (Y<=(Button[i].Top+Button[i].Height))//Top-координата верхнего края,Height-высота компонента
then
begin
Button[i].Show

zvygin1964

zvygin1964 (статус: Посетитель), 9 сентября 2014, 20:17 [#1]:

Не влезло полностью:
for i:= 1 to 6 do
begin
if (X>=Button[i].Left) and (X<=(Button[i].Left+Button[i].Width)) and//Left-ширина компонента, Width-координата левого края
(Y>=Button[i].Top) and (Y<=(Button[i].Top+Button[i].Height))//Top-координата верхнего края,Height-высота компонента
then
begin
Button[i].Show; //показать
j := i+1 ;
end

else
Button[i].Hide; //скрыть
end;
end;
Толяныч

Толяныч (статус: 4-ый класс), 12 сентября 2014, 11:10 [#2]:

Ну вот, теперь весь форум может в режиме реалити-шоу наблюдать за тем, как new_user с очень странным ником изучает азы программирования. Почти "Дом-2". Ни разу не видел, но наверное, похоже :-)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 18 июня 2019, 01:58
Выполнено за 0.02 сек.
Рейтинг@Mail.ru