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

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

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

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

типа этого (извини не проверял)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2003, 09:23
    #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, 10:10
    #32261948
StarWind
StarWind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Массив
Mihail R.
вот именно не проверил... а еще свойство Parent не плохо было выставить
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.09.2003, 10:25
    #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, 22:41
    #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
| Ответить | Цитировать | Написать  
12.09.2003, 04:42
    #32263046
dragonx
dragonx
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Массив
est` takaya function kak FindComponents - ona pomojet ;)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.09.2003, 04:47
    #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, 05:00
    #32263048
StarWind
StarWind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Массив
Oilman
свойство Name можно е заполнять
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.09.2003, 10:46
    #32263301
1man
1man
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Массив
4 Oilman
Мужик, ты хоть читаешь, что тебе пишут?
aCoef[x]->OnKeyUp=On_CoefUp;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.09.2003, 20:59
    #32264177
Oilman
Oilman
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Массив
1man

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


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