|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.01.2009, 06:42 | #1 |
Пользователь
Регистрация: 19.01.2009
Сообщений: 10
|
Как удалить Edit, если на нём фокус?
Здраствуйте.
Создаю динамически много едитов, и надо их удалять, при потери ими фокуса, или сразу, как только в них не будет текста. Второй вариант отдал общему обработчику события onkeypress procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char); begin panel1.Caption:=tedit(sender).Name; if (sender as tedit).Text='' then begin edit1.setfocus; FreeAndNil(tedit(sender)); end; end; Но он выдаёт ошибку. Хотя обработчик события потери фокуса удаляет Edit без проблем. Подскажите пожалуйста, в чём проблема? И если кто знает, как просто убрать фокус ввода со всех Edit'ов?? |
19.01.2009, 09:00 | #2 |
Баламучу слегка...
Участник клуба
Регистрация: 01.11.2006
Сообщений: 1,585
|
А не правильнее ли будет так сделать?
Код:
|
19.01.2009, 23:53 | #3 |
Пользователь
Регистрация: 19.01.2009
Сообщений: 10
|
Болшое спасибо - работает
Ещё вопросик: как поставить фокус ввода на только что созданный Edit? with TEdit.create(self) do begin Parent:=Panel1; Font.Color:=clblue; left:=x_plus; Top:=y_plus; Ctl3D:=false; autoselect:=false; if key<>#13 then text:=key; onchange:=edit1.onchange; onkeypress:=form1.onkeypress; onexit:=editExit; (self).setfocus; end; Так не получается |
20.01.2009, 00:01 | #4 |
Пользователь
Регистрация: 01.11.2007
Сообщений: 45
|
просто "setfocus;" убери "(self)"
|
20.01.2009, 00:04 | #5 |
Форумчанин
Регистрация: 29.06.2008
Сообщений: 603
|
Просто SetFocus;
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как передать фокус ввода в поле Edit | Arassir | Помощь студентам | 14 | 11.07.2012 12:37 |
Как в OnkeyPress отловить если в Edit есть текст позицию заменяемого символа? | slips | Общие вопросы Delphi | 3 | 06.12.2008 18:12 |
MFC: как передать фокус елементу управления "edit" ? | umnick | Visual C++ | 2 | 02.11.2008 18:45 |
TStringGrid. Как удержать фокус на ячейке таблицы? | ruma | Помощь студентам | 1 | 22.10.2007 12:49 |
как удалить анти вирус( касперский 2006)если она не работает и ее не возможно удалить | Alar | Общие вопросы Delphi | 0 | 29.10.2006 21:36 |