Форум: "KOL";
Текущий архив: 2006.07.02;
Скачать: [xml.tar.bz2];
ВнизКак проверить, кто получил фокус при его потере в EditBoxe ? Найти похожие ветки
← →
DmiSb (2005-10-19 14:25) [0]Уважаемые мастера, проблема вот собственно в чем:
Есть EditBox и Button.
Нажимаю на кнопку, а в EditBoxe надо выполнить проверочку, и если нажимаем кнопку, выполнить одни действия, если что-то другое - другие действия. Событие onLeave срабатывает до получения фокуса кнопкой.
Как лучше поступить в этом случае ?
← →
ECM © (2005-10-19 15:00) [1]Например так:
function TForm1.EditBox1Message(var Msg: tagMSG;
var Rslt: Integer): Boolean;
var
P: PControl;
begin
Result := FALSE;
if Msg.message = WM_KILLFOCUS then begin
P := PControl(GetProp(Msg.wParam,ID_SELF));
if P = Button1 then begin
// Фокус переходит к Button1
end else begin
// Фокус переходит куда-то ещё
end;
end;
end;
← →
DmiSb (2005-10-19 15:01) [2]Огромное спасибо
Страницы: 1 вся ветка
Форум: "KOL";
Текущий архив: 2006.07.02;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c