|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
19.04.2007, 11:04 | #1 |
Пользователь
Регистрация: 18.04.2007
Сообщений: 24
|
TEdit - перенос текста, SetFocus
Нужно разработать форму, с 1 кнопкой и двумя Edit-ами.
Задача, в один из эдитов вносим текс и при нажатии на кнопку этот текст переносится в другой эдит. Первый эдит очищается, но курсор остаётся именно в нём для дальнейшего вбивания текста.
Вот так вот
|
19.04.2007, 16:11 | #2 |
Участник клуба
Регистрация: 28.03.2007
Сообщений: 1,814
|
Всё просто
procedure TForm1.Button1Click(Sender: TObject);
begin edit2.Text:=edit1.Text; edit1.Clear; edit1.SetFocus; end; |
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 |
Пользователь
Регистрация: 16.04.2007
Сообщений: 15
|
If Edit1.Text = '' then
begin // Вбиваешь то, что отсканировал end;
Я, как и ты, думал, что за нами прилетят,
Ошейник снимут, за ухом почешут и всё простят, Но я сплю у миски, и ты всё съел... В подарок ириска! |
20.04.2007, 09:03 | #6 |
Пользователь
Регистрация: 18.04.2007
Сообщений: 24
|
Благодарчик
Вот так вот
|
20.04.2007, 10:46 | #7 |
Пользователь
Регистрация: 18.04.2007
Сообщений: 24
|
А поподробней плиз
Вот так вот
|
20.04.2007, 15:46 | #8 |
Участник клуба
Регистрация: 28.03.2007
Сообщений: 1,814
|
If Edit1.Text = '' then //если окно едита пустое то
begin Edit1.Text:=твой отсканированный текст; end; |
23.04.2007, 09:49 | #9 | |
Пользователь
Регистрация: 18.04.2007
Сообщений: 24
|
Цитата:
procedure TForm1.Button1Click(Sender: TObject); begin edit2.Text:=edit1.Text; edit1.Clear; edit1.SetFocus; end; При переносе текста из одного Edita в другой, надо чтобы он проверял, если второй эдит уже содержит текст, значит тот текст который в первом эдите не переносился пока второй эдит не будет очищен
Вот так вот
|
|
23.04.2007, 12:44 | #10 |
Форумчанин
Регистрация: 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;
Не надо ничего усложнять. Все достаточно тривиально.
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
вопрос по 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 |