ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / массивы кнопок
17 сообщений из 17, страница 1 из 1
массивы кнопок
    #39554403
temir123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
temir123
Гость
нужно чтобы при создании формы имена кнопок менялись на цвета радуги (непонятное это цвета радуги)

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
var
  Form1: TForm1;
   raduga:array[1..7] of string=('...');
  Button : Array[1..7] of TButton;

implementation

{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);

 var i:integer;
begin
for i:=1 to 7 do begin
Button[i].Caption:=raduga[i];
end;
end;
...
Рейтинг: 0 / 0
16.11.2017, 15:17:07
| Ответить | Цитировать | Написать  
массивы кнопок
    #39554404
temir123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
temir123
Гость
прога запускается но свою функцию не выполняет
...
Рейтинг: 0 / 0
16.11.2017, 15:18:00
| Ответить | Цитировать | Написать  
массивы кнопок
    #39554415
Фотография Квейд
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Квейд
Участник
А объект кнопки кто будет создавать? Пушкин?
...
Рейтинг: 0 / 0
16.11.2017, 15:32:08
| Ответить | Цитировать | Написать  
массивы кнопок
    #39554422
temir123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
temir123
Гость
я создал 7 кнопок. Или ты о чем ?
...
Рейтинг: 0 / 0
16.11.2017, 15:36:52
| Ответить | Цитировать | Написать  
массивы кнопок
    #39554426
Фотография DarkMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMaster
Участник
temir123прога запускается но свою функцию не выполняет

Не мудрено, что не работает. Кнопки нужно создать (уже сказали) и поместить их на форму. Т.е. твой цикл немного усложнится...
...
Рейтинг: 0 / 0
16.11.2017, 15:37:21
| Ответить | Цитировать | Написать  
массивы кнопок
    #39554427
Фотография DarkMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMaster
Участник
temir123я создал 7 кнопок. Или ты о чем ?

Покажи, где ты их создал.
...
Рейтинг: 0 / 0
16.11.2017, 15:37:53
| Ответить | Цитировать | Написать  
массивы кнопок
    #39554433
temir123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
temir123
Гость
Код: pascal
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.
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    Shape5: TShape;
    Shape6: TShape;
    Shape7: TShape;
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   raduga:array[1..7] of string=('красный ','оранжевый','желтый',
                              'зеленый','голубой','синий','фиолетовый');
  Button : Array[1..7] of TButton;

implementation

{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);
 var
 i:integer;
begin
for i:=1 to 7 do begin
Button[i].Caption:=raduga[i];
end;
end;




end.
...
Рейтинг: 0 / 0
16.11.2017, 15:41:22
| Ответить | Цитировать | Написать  
массивы кнопок
    #39554435
temir123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
temir123
Гость
shape там дальше понадобится
...
Рейтинг: 0 / 0
16.11.2017, 15:42:06
| Ответить | Цитировать | Написать  
массивы кнопок
    #39554438
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Код: pascal
1.
2.
3.
4.
5.
var B: TComponent;
for i:=1 to 7 do begin
  B := FindComponent('Button'+IntToStr(i));
  if B is TButton then TComponent(B).Caption:=raduga[i];
end;
...
Рейтинг: 0 / 0
16.11.2017, 15:45:02
| Ответить | Цитировать | Написать  
массивы кнопок
    #39554439
temir123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
temir123
Гость
...
Рейтинг: 0 / 0
16.11.2017, 15:45:07
| Ответить | Цитировать | Написать  
массивы кнопок
    #39554447
temir123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
temir123
Гость
я возможно где-то дико туплю но он пишет [Error] Unit1.pas(51): Undeclared identifier: 'Caption'

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
procedure TForm1.FormCreate(Sender: TObject);
var B: TComponent;
 i:integer;
 begin
for i:=1 to 7 do begin
  B := FindComponent('Button'+IntToStr(i));
  if B is TButton then TComponent(B).Caption:=raduga[i];
end;
end;


end.
...
Рейтинг: 0 / 0
16.11.2017, 15:48:26
| Ответить | Цитировать | Написать  
массивы кнопок
    #39554461
Фотография DarkMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMaster
Участник
temir123я возможно где-то дико туплю но он пишет [Error] Unit1.pas(51): Undeclared identifier: 'Caption'

procedure TForm1.FormCreate(Sender: TObject);
var B: TComponent;
i:integer;
begin
for i:=1 to 7 do begin
B := FindComponent('Button'+IntToStr(i));
if B is TButton then TComponent(B).Caption:=raduga[i];
end;
end;


end.

1) Выбрось свой массив (array of TButton) - он тебе не нужен.
2)
if (B is TButton) then TButton(B).Caption:=raduga[i];
...
Рейтинг: 0 / 0
16.11.2017, 16:00:09
| Ответить | Цитировать | Написать  
массивы кнопок
    #39554554
temir123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
temir123
Гость
спасибо, но у меня вопрос, это реально сделать с помощью массива кнопок, просто у меня спец.задание
...
Рейтинг: 0 / 0
16.11.2017, 17:32:58
| Ответить | Цитировать | Написать  
массивы кнопок
    #39554563
Фотография JayDi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JayDi
Участник
button1.color := clRed;
button2.color := clBlue;
и т.д.
...
Рейтинг: 0 / 0
16.11.2017, 17:41:28
| Ответить | Цитировать | Написать  
массивы кнопок
    #39554568
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rgreat
Участник
temir123спасибо, но у меня вопрос, это реально сделать с помощью массива кнопок, просто у меня спец.задание
Buttons[1]:=Button1;
Buttons[2]:=Button2;
Buttons[3]:=Button3;
...
...
Рейтинг: 0 / 0
16.11.2017, 17:49:33
| Ответить | Цитировать | Написать  
массивы кнопок
    #39554578
Gerasimenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gerasimenko
Участник
temir123спасибо, но у меня вопрос, это реально сделать с помощью массива кнопок, просто у меня спец.задание
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
PosLeft:=100;//например
for i:=1 to Length(Button)
 do begin
   Button[i]:=TButton.Create(Form1);
   Button[i].Parent:=Form1;
   Button[i].Left:=PosLeft;
   Button[i].Top:=5+(Button[i].Height+5)*(i-1);
   Button[i].Caption:=raduga[i];
     end;


Что-то подобное...
...
Рейтинг: 0 / 0
16.11.2017, 17:58:42
| Ответить | Цитировать | Написать  
массивы кнопок
    #39554584
Gerasimenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gerasimenko
Участник
temir123,

20960479
...
Рейтинг: 0 / 0
16.11.2017, 18:00:45
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / массивы кнопок
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&fpage=126&tid=2041570]:
 0ms
get settings:
 6ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 28ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 212ms
total:  321ms
созд. / загр.: 321ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]