Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 03.02.2009, 18:36
Xcopy Xcopy вне форума
Прохожий
 
Регистрация: 06.10.2008
Сообщения: 35
Репутация: 10
По умолчанию label

вообщем я хочу сделать типо того label(i) где i номер labela над которым я хочу работать

Как это реальзовать?

Последний раз редактировалось Admin, 03.02.2009 в 18:40.
Ответить с цитированием
  #2  
Старый 03.02.2009, 19:00
Interface Interface вне форума
Активный
 
Регистрация: 23.05.2008
Адрес: Россия, Уфа
Сообщения: 203
Репутация: 1
По умолчанию

Если правильно понял то так:
Код:
var
a : Integer;
labl: array [0..10] of TLabel;
begin
For a := 0 to 10 do
begin
labl[a] := TLabel.Create(self);
Labl[a].Caption := 'Label('+IntToStr(a)+')';
// тут все подобное...
end;
__________________
Я ни в чем никогда не уверен... И в этом тоже...
Ответить с цитированием
  #3  
Старый 03.02.2009, 20:14
Xcopy Xcopy вне форума
Прохожий
 
Регистрация: 06.10.2008
Сообщения: 35
Репутация: 10
По умолчанию нето...

нето...
дело в том что я нехочу присваивать переменной значение лайблов... я хочу присвоить переменной номер лайбла! нодеюсь вы меня поняли.



label1 -в данном случае номер лайбла 1.
label5 -в данном случае номер лайбла 5.
Ответить с цитированием
  #4  
Старый 03.02.2009, 20:16
ApplicatiOn ApplicatiOn вне форума
Активный
 
Регистрация: 28.02.2008
Сообщения: 388
Репутация: -10
По умолчанию

свойство tag у label'а
Ответить с цитированием
  #5  
Старый 03.02.2009, 20:21
Xcopy Xcopy вне форума
Прохожий
 
Регистрация: 06.10.2008
Сообщения: 35
Репутация: 10
По умолчанию нее....

по умолчаию свойство тег у всех лабелов равно 0!
Ответить с цитированием
  #6  
Старый 03.02.2009, 20:22
ApplicatiOn ApplicatiOn вне форума
Активный
 
Регистрация: 28.02.2008
Сообщения: 388
Репутация: -10
По умолчанию

ну так меняй..

Код:
label1.tag := 1;
label5.tag := 5;
Ответить с цитированием
  #7  
Старый 03.02.2009, 20:33
Xcopy Xcopy вне форума
Прохожий
 
Регистрация: 06.10.2008
Сообщения: 35
Репутация: 10
По умолчанию Tag Ячейка для хранения произвольного целого числа.

Tag Ячейка для хранения произвольного целого числа. Это свойство создано исключительно для программиста, Delphi оно не нужно.
Ответить с цитированием
  #8  
Старый 03.02.2009, 21:18
ApplicatiOn ApplicatiOn вне форума
Активный
 
Регистрация: 28.02.2008
Сообщения: 388
Репутация: -10
По умолчанию

а разве по tag'у обращаться к компонентам нельзя?
Ответить с цитированием
  #9  
Старый 03.02.2009, 21:22
Xcopy Xcopy вне форума
Прохожий
 
Регистрация: 06.10.2008
Сообщения: 35
Репутация: 10
По умолчанию И???

Твою задумку я понял... но в данном случае это мне ничего недаст!
Дело в том что я хочу в таймере сделать обработчик событий который выполнял действия с лабелами... А точнее чтобы он свойству visible присваивал true. Но как бы через интервал таймера: например у меня 20 лабелов, и свойство висибл у них false. У таймера интервал 1000, и в таймере япишу чтобы он делал так:
лабелX.visible:=true;
X:=X+1;\\и он будет бесконца в таймере через 1000 показывать по лабелу...
Ответить с цитированием
  #10  
Старый 03.02.2009, 21:35
Xcopy Xcopy вне форума
Прохожий
 
Регистрация: 06.10.2008
Сообщения: 35
Репутация: 10
По умолчанию А как?

А как по тегу обратиться к компоненту?
Ответить с цитированием
  #11  
Старый 03.02.2009, 22:06
ART ART вне форума
Продвинутый
 
Регистрация: 13.02.2006
Адрес: Магнитогорск
Сообщения: 669
Репутация: 14745
По умолчанию

Код:
function tform1.getlabel(tag: integer): tlabel;
Var
 i: integer;
begin
 for i := 0 to componentcount - 1 do
  if components[i] is tlabel then
  *If tlabel(components[i]).tag = tag then begin
*   result := tlabel(components[i]);
    exit;
 End;
result := nil;
End;
Ответить с цитированием
  #12  
Старый 03.02.2009, 22:48
Xcopy Xcopy вне форума
Прохожий
 
Регистрация: 06.10.2008
Сообщения: 35
Репутация: 10
По умолчанию всем спасибо за старание....

всем спасибо за старание.... надо было сделать так:
Цитата:
TLabel(FindComponent('Label' + IntToStr(i))).visible :=true;
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 17:22.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025