Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Запретить снятие фокуса [D7]

chir © (2005-01-12 02:15:00)
Допустим есть Edit, с которого не надо снимать фокус пока текста в Edit'e нет (т.е. пока он пустой фокус должен оставаться на нем). Как это сделать?

chir (2005-01-12 16:23:00) [1]
[8] - грамотная идея.
вчера ночь. уже мозг совсем не работал... :)

ps: [6] - Abort не работал

ASoft (2005-01-12 04:44:00) [2]
А теперь без ошибок:
procedure TForm1.EditExit(Sender: TObject);
begin
with (Sender as TEdit) do
if Text='' then
begin
MessageBeep(10);
ActiveControl:=(Sender as TEdit)
end
else
{запись данного поля в базу}
end;

ЮЮ (2005-01-12 04:30:00) [3]
>При потере фокуса идет запись в базу, где нельзя записывать пустоту

Прям так сама и идёт? В твоем же коде, наверное. Там и проверяй, заполнен ли едит, данные из которого ты запишешь и если нет, то и фокусируйся на нём, без записи

ASoft (2005-01-12 04:28:00) [4]
> либо Enable := false для всех объектов формы.[5]
Т.е., пока в поле не введен текст, Enable=False для каких объектов формы? Кнопки, которая осуществляет запись в базу?
Все же при выходе из поля напрямую запись в базу производить было б не желательно.
Но попробуй:
procedure TForm1.EditExit(Sender: TObject);
begin
with (Sender as TEdit) do
if Text='' then
begin
Message.Beep(10);
ActiveControl:=(Sender as TEdit)
end
else
{запись данного поля в базу}
end;
end;

aus (2005-01-12 03:48:00) [5]
Не проверял, но может быть:
procedure TForm1.Edit1Exit(Sender: TObject); begin with (Sender as tEdit) do begin if Text = '' then begin Beep; Abort; end; end; end;

chir (2005-01-12 03:05:00) [6]
не,...
интересует именно возможность задержки фокуса либо Enable := false для всех объектов формы.

DBEdit и тому подобное не годятся.
запретить запись в базу тоже трудно...

возможно у меня весь код дурацкий, но работа проделана уже огромная и изобретать все заново нет времени...

Jel (2005-01-12 02:55:00) [7]

> При потере фокуса идет запись в базу

Может тогда стоит обратить внимание на DBEdit и Commit/Rollback?

bulkas (2005-01-12 02:52:00) [8]
а трудно запретить чтоб не писала в базу если "пустота" ?

chir (2005-01-12 02:50:00) [9]
нет, нет.

такой механизм не подходит, т.к. фокус сначала теряется, а потом возвращается.

При потере фокуса идет запись в базу, где нельзя записывать пустоту... конечно программа завершает работу... :(

Вот в чем проблема.

Jel (2005-01-12 02:39:00) [10]
procedure TForm1.Edit1Exit(Sender: TObject); begin with (Sender as tEdit) do begin if Text = '' then begin Beep; SetFocus; end; end; end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »