|
Вопрос # 6 563/ вопрос решён / |
|
Здоровья Вам!
Как в конструкцию if - then - else вставлять подпрограммы ?
Приложение: Переключить в обычный режим-
-
- if (X>=Button[i].Left) and (X<=(Button[i].Left+Button[i].Width)) and
- (Y>=Button[i].Top) and (Y<=(Button[i].Top+Button[i].Height))
- then
-
- j := i+1
- else
-
-
-
-
-
-
-
- private
- { Private declarations }
- public
- { Public declarations }
-
- procedure calculation(i: Integer; j: Integer);
- end;
- var
- Form3: TForm3;
- Button: array[1..6] of TButton;
-
- PriorityPass : Array[1..6] of Integer;
-
- implementation
- uses Unit1;
- {$R *.dfm}
-
- procedure TForm3.calculation(i: Integer; j: Integer);
- begin
-
- j := i+1 ;
- end;
-
- procedure TForm3.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
- Y: Integer);
- begin
- for i:= 1 to 6 do
- begin
- if (X>=Button[i].Left) and (X<=(Button[i].Left+Button[i].Width)) and
- (Y>=Button[i].Top) and (Y<=(Button[i].Top+Button[i].Height))
- then
-
-
-
- end;
- end;
-
-
-
-
-
 |
Вопрос задал: 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 (статус: Посетитель), 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". Ни разу не видел, но наверное, похоже 
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
