ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Массив
15 сообщений из 15, страница 1 из 1
Массив
    #32257845
Oilman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oilman
Участник
Подскажите, возможно ли в DELFI 6.0 создать массив, скажем... кнопок или Labelов. Очень уж нудно постоянно описывать все подобные вещи по именам.
Заранее благодарен.
...
Рейтинг: 0 / 0
07.09.2003, 21:26
| Ответить | Цитировать | Написать  
Массив
    #32257899
StarWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StarWind
Участник
Btns:array of TButton;
и все...
...
Рейтинг: 0 / 0
08.09.2003, 04:04
| Ответить | Цитировать | Написать  
Массив
    #32261726
Oilman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oilman
Участник
Все понял. Однако один вопрос остался нерешённым.

LabelX:array[1..15] of TLabel;

Как разместить каждую из Labelов массива на форме во время разработки приложения?
...
Рейтинг: 0 / 0
10.09.2003, 23:12
| Ответить | Цитировать | Написать  
Массив
    #32261765
StarWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StarWind
Участник
перебиай массив и присваивай значения Label'ам
...
Рейтинг: 0 / 0
11.09.2003, 03:52
| Ответить | Цитировать | Написать  
Массив
    #32261863
Фотография Mihail R.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mihail R.
Участник
каждую нужно создать, затем установит координаты, затем добавить на форму.

labelx:=Tlabel.Create(self);
labelx.caption:='';
labelx.left:=123;
insertControl(labelx);

типа этого (извини не проверял)
...
Рейтинг: 0 / 0
11.09.2003, 09:21
| Ответить | Цитировать | Написать  
Массив
    #32261864
Фотография Mihail R.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mihail R.
Участник
Код: plaintext
1.
2.
3.
4.
labelx[ 1 ]:=Tlabel.Create(self); 
labelx[ 1 ].caption:=''; 
labelx[ 1 ].left:= 123 ; 
insertControl(labelx[ 1 ]);

упс... отформатировалось
...
Рейтинг: 0 / 0
11.09.2003, 09:23
| Ответить | Цитировать | Написать  
Массив
    #32261948
StarWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StarWind
Участник
Mihail R.
вот именно не проверил... а еще свойство Parent не плохо было выставить
...
Рейтинг: 0 / 0
11.09.2003, 10:10
| Ответить | Цитировать | Написать  
Массив
    #32261982
1man
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1man
Участник
Выдрал кус рабочего С++ кода:

for(int x=0;x<6;x++)
{
aCoef[x] = new TEdit(this);
aCoef[x]->Parent=this;
aCoef[x]->Enabled=false;
aCoef[x]->OnKeyUp=On_CoefUp;

aCoef[x]->Width = 57; bCoef[x]->Width = 57;
aCoef[x]->Height = 24; bCoef[x]->Height = 24;
aCoef[x]->Left = 64*x+50; bCoef[x]->Left = 64*x+50;
aCoef[x]->Top = 20; bCoef[x]->Top = 88;
aCoef[x]->Text=MainForm->SetEdit(MainForm->n,MainForm->a[x]);
}
...
Рейтинг: 0 / 0
11.09.2003, 10:25
| Ответить | Цитировать | Написать  
Массив
    #32262992
Oilman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oilman
Участник
Вроде стало получаться, однако работать с создаными объектами не получается...
.....
type
Procedure LabelNomer1click (Sender: TObject);
......
begin
.....
labelx :=Tlabel.Create(self);
labelx.name:='LabelNomer'+inttistr(i);
.....
Procedure LabelNomer1click (Sender: TObject);
begin
....
end;

На это прога отказывается компилироваться, мол LabelNomer1 нету...
Я и сам знаю, что LabelNomer1 появится только во время работы проги.
Как быть?
...
Рейтинг: 0 / 0
11.09.2003, 22:41
| Ответить | Цитировать | Написать  
Массив
    #32263046
dragonx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dragonx
Участник
est` takaya function kak FindComponents - ona pomojet ;)
...
Рейтинг: 0 / 0
12.09.2003, 04:42
| Ответить | Цитировать | Написать  
Массив
    #32263047
dragonx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dragonx
Участник
izvinyaus`, s utra ploxo soobrajau ;)), ne dochital
pishesh function, i tam gdee ti sozdaesh svoi Label, tam je emu prisvaivaesh na sobitie OnClick vizov svoei function(TLabel)
LabelName1.OnClick := MyFunctionClick();
...
Рейтинг: 0 / 0
12.09.2003, 04:47
| Ответить | Цитировать | Написать  
Массив
    #32263048
StarWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StarWind
Участник
Oilman
свойство Name можно е заполнять
...
Рейтинг: 0 / 0
12.09.2003, 05:00
| Ответить | Цитировать | Написать  
Массив
    #32263301
1man
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1man
Участник
4 Oilman
Мужик, ты хоть читаешь, что тебе пишут?
aCoef[x]->OnKeyUp=On_CoefUp;
...
Рейтинг: 0 / 0
12.09.2003, 10:46
| Ответить | Цитировать | Написать  
Массив
    #32264177
Oilman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oilman
Участник
1man

I'am sorry but you should not be so disconnected, because Oilman is not a programmer...
...
Рейтинг: 0 / 0
12.09.2003, 20:59
| Ответить | Цитировать | Написать  
Массив
    #32265129
1man
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1man
Участник
Дык, тем более, если не программер - читать нужно :)
Удачи!
...
Рейтинг: 0 / 0
15.09.2003, 14:21
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Массив
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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