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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 19.04.2007, 11:04   #1
Аббат
Пользователь
 
Аватар для Аббат
 
Регистрация: 18.04.2007
Сообщений: 24
По умолчанию TEdit - перенос текста, SetFocus

Нужно разработать форму, с 1 кнопкой и двумя Edit-ами.
Задача, в один из эдитов вносим текс и при нажатии на кнопку этот текст переносится в другой эдит.
Первый эдит очищается, но курсор остаётся именно в нём для дальнейшего вбивания текста.
Вот так вот
Аббат вне форума
Старый 19.04.2007, 16:11   #2
SERG1980
Участник клуба
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,814
По умолчанию Всё просто

procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=edit1.Text;
edit1.Clear;
edit1.SetFocus;
end;
SERG1980 вне форума
Старый 19.04.2007, 16:35   #3
Аббат
Пользователь
 
Аватар для Аббат
 
Регистрация: 18.04.2007
Сообщений: 24
Хорошо

Огромное спасибо, всё работает
Вот так вот
Аббат вне форума
Старый 19.04.2007, 16:51   #4
Аббат
Пользователь
 
Аватар для Аббат
 
Регистрация: 18.04.2007
Сообщений: 24
По умолчанию

Есть ещё одна просьбочка.
В Edit1 вбивается сканированный текст, надо сделать так чтобы, если в поле уже есть текст, то сканированный текст не может быть добавлен пока поле Edit1 не будет очищено.
Вот так вот
Аббат вне форума
Старый 19.04.2007, 19:38   #5
Wiggle
Пользователь
 
Аватар для Wiggle
 
Регистрация: 16.04.2007
Сообщений: 15
По умолчанию

If Edit1.Text = '' then
begin
// Вбиваешь то, что отсканировал
end;
Я, как и ты, думал, что за нами прилетят,
Ошейник снимут, за ухом почешут и всё простят,
Но я сплю у миски, и ты всё съел... В подарок ириска!
Wiggle вне форума
Старый 20.04.2007, 09:03   #6
Аббат
Пользователь
 
Аватар для Аббат
 
Регистрация: 18.04.2007
Сообщений: 24
По умолчанию

Благодарчик
Вот так вот
Аббат вне форума
Старый 20.04.2007, 10:46   #7
Аббат
Пользователь
 
Аватар для Аббат
 
Регистрация: 18.04.2007
Сообщений: 24
По умолчанию

Цитата:
Сообщение от Wiggle Посмотреть сообщение
If Edit1.Text = '' then
begin
// Вбиваешь то, что отсканировал
end;

А поподробней плиз
Вот так вот
Аббат вне форума
Старый 20.04.2007, 15:46   #8
SERG1980
Участник клуба
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,814
По умолчанию

If Edit1.Text = '' then //если окно едита пустое то
begin
Edit1.Text:=твой отсканированный текст;
end;
SERG1980 вне форума
Старый 23.04.2007, 09:49   #9
Аббат
Пользователь
 
Аватар для Аббат
 
Регистрация: 18.04.2007
Сообщений: 24
По умолчанию

Цитата:
Сообщение от SERG1980 Посмотреть сообщение
If Edit1.Text = '' then //если окно едита пустое то
begin
Edit1.Text:=твой отсканированный текст;
end;
Спасибо с этим разобрался, а вот ещё вопросик повот этому поводу
procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=edit1.Text;
edit1.Clear;
edit1.SetFocus;
end;

При переносе текста из одного Edita в другой, надо чтобы он проверял, если второй эдит уже содержит текст, значит тот текст который в первом эдите не переносился пока второй эдит не будет очищен
Вот так вот
Аббат вне форума
Старый 23.04.2007, 12:44   #10
Shuraken
Форумчанин
 
Аватар для Shuraken
 
Регистрация: 16.04.2007
Сообщений: 298
По умолчанию

procedure TForm1.Button1Click(Sender: TObject);
begin
if length(Trim(edit2.text)) = 0 then
begin
edit2.Text:=edit1.Text;
edit1.Clear;
edit1.SetFocus;
end;
end;
Не надо ничего усложнять. Все достаточно тривиально.
Shuraken вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
вопрос по setFocus Максим_Леонидович Общие вопросы Delphi 6 28.08.2008 22:21
SetFocus!!!Нужен ответ!Творится,что-то непонятное!!! Alexij Общие вопросы Delphi 4 14.06.2008 14:59
TEdit green Компоненты Delphi 17 16.03.2008 07:13
TEdit Xardas Общие вопросы Delphi 2 17.01.2008 02:04