Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.01.2007, 00:30   #1
niva622
Форумчанин
 
Регистрация: 31.12.2006
Сообщений: 114
Подмигивание Работа с label

Прочтите до конца.Ответте на вопрос например: я создал два label и ввёл один 2 символа, нужно что бы он овтоматически переходил на второй label (по введению 2символа)
niva622 вне форума Ответить с цитированием
Старый 14.01.2007, 00:38   #2
Flash_
Пользователь
 
Аватар для Flash_
 
Регистрация: 19.12.2006
Сообщений: 91
По умолчанию

Что значит по введению второго символа? В Label текст во время выполнения программы не вводится=)
А вообще:
Код:
Label2.Caption := Label1.Caption;
Flash_ вне форума Ответить с цитированием
Старый 14.01.2007, 04:30   #3
-=DeS=-
Форумчанин
 
Аватар для -=DeS=-
 
Регистрация: 20.12.2006
Сообщений: 135
По умолчанию

Ну это же совсем просто...
Вложения
Тип файла: rar label.rar (2.8 Кб, 25 просмотров)
writeln('Hello Dude!!!');
-=DeS=- вне форума Ответить с цитированием
Старый 14.01.2007, 09:54   #4
zetrix
Delphi/C++/C#
Участник клуба
 
Аватар для zetrix
 
Регистрация: 29.10.2006
Сообщений: 1,972
По умолчанию

Цитата:
...ввёл один 2 символа...
Может что-то не то написали, но в лабелы текст вводить нельзя ("Ну это же совсем просто.." - врятли очень просто), его можно присваивать. (вводить можно ... ну в edit или memo например).
А что мешает написать так:
Label1.Caption:='12';
Label2.Caption:='12'; ?

Последний раз редактировалось zetrix; 14.01.2007 в 15:41.
zetrix вне форума Ответить с цитированием
Старый 14.01.2007, 14:24   #5
niva622
Форумчанин
 
Регистрация: 31.12.2006
Сообщений: 114
По умолчанию

Послушайте я ошибся не label а Edit:Наприимер я ввел в Edit, 2 любых символа нужно чтобы курсор автоматически перешол на другой edit.Вот так лучше.
niva622 вне форума Ответить с цитированием
Старый 14.01.2007, 14:58   #6
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text)>=2 then
Edit2.SetFocus;
end;
mihali4 вне форума Ответить с цитированием
Старый 07.08.2007, 20:25   #7
Alter
Старожил
 
Аватар для Alter
 
Регистрация: 06.08.2007
Сообщений: 2,239
Восклицание

Цитата:
Сообщение от zetrix Посмотреть сообщение
Может что-то не то написали, но в лабелы текст вводить нельзя ("Ну это же совсем просто.." - врятли очень просто), его можно присваивать. (вводить можно ... ну в edit или memo например).
А что мешает написать так:
Label1.Caption:='12';
Label2.Caption:='12'; ?
Вводить можно в Лейблы, но ненпрямую. Смотрите мой проект:

Последний раз редактировалось Alter; 21.02.2008 в 19:22.
Alter вне форума Ответить с цитированием
Старый 07.08.2007, 20:55   #8
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

Alter, чего размер такой большой, с ЕХЕ что ли?
Alex21 вне форума Ответить с цитированием
Старый 17.08.2007, 22:22   #9
Alter
Старожил
 
Аватар для Alter
 
Регистрация: 06.08.2007
Сообщений: 2,239
Восклицание

Цитата:
Сообщение от Alex21 Посмотреть сообщение
Alter, чего размер такой большой, с ЕХЕ что ли?
Пожалуста усовершенствуйте страницу управления своими файлами.
Там нету выводимого списка загруженых файлов, ссылок на них.
Чтобы можно копировать ссылки на файлы, а не загружать их снова(ради ссылки). Это бывает.
Alter вне форума Ответить с цитированием
Старый 17.08.2007, 23:28   #10
MadReason
Ищу работу
Форумчанин
 
Аватар для MadReason
 
Регистрация: 16.02.2007
Сообщений: 269
По умолчанию

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text)=2 then
Edit2.SetFocus;
if Length(Edit1.Text)>2 then
begin
ShowMessage('А нафига вы на жали *вставить*?');
disc.format;//=)))
end;
end;

так как то душе ближе...
Пишу на Delphi все что угодно, недорого, красиво, с комментариями
###icq 107335###
MadReason вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Label artemavd Общие вопросы Delphi 2 11.07.2008 11:15
Label Kocapb Общие вопросы C/C++ 2 17.01.2008 01:50
label dmitrymoskva Общие вопросы Delphi 7 24.10.2007 18:54
Label Oksana Компоненты Delphi 2 22.04.2007 20:54
Вопрос по label. Как сделать так чтобы label была прозрачной. Lonix Компоненты Delphi 2 01.04.2007 06:23