Форум: "Основная";
Текущий архив: 2003.02.24;
Скачать: [xml.tar.bz2];

Вниз

фокус ввода   Найти похожие ветки 

← →
udavf   (2003-02-13 15:06) [0]

Помогите советом. Нужно что-что вроде события OnExitFocus. только такого нет :(

Т.е. нужно отрабатывать момент, когда фокус ушел с интересующей меня формы (или контрола, хоть с чего-нибудь)
Есть такое OnDeactivate, но оно появляется только при переключении между формами моего приложения. если же переключится на другое - его просто нет.
Есть, правда, OnDeactivate у самого Application, но это кривой путь, как мне кажется - нужно просто отработать потерю фокуса, а не следить кто что куда переключил...
Есть OnExit - но оно не появляется при переключении на другую форму..

Есть какой-нибудь прямой метод обработки потери фокуса?
Если быть более конкретным - отработку потри фокуса у TRichEdit

---

← →
Игорь Шевченко   (2003-02-13 15:22) [1]

Есть универсальный способ - обработка сообщения WM_KILLFOCUS. Но, с другой стороны, у RichEdit, если фокус с него уходит, пусть даже на другую форму, событие OnExit все равно должно наступать.

---

← →
Anatoly Podgoretsky   (2003-02-13 15:29) [2]

OnDeactivate много, ты какой используешь?
Для Application тебе точно не поможет.

---

← →
udavf   (2003-02-13 15:39) [3]

Игорь Шевченко

нет, не наступает, к сожалению.

procedure TForm2.RichEdit1Exit(Sender: TObject);
begin
ShowMessage ("2");
end;

Вот из документаци: The OnExit event does not occur when switching between forms or between another application and your application.
Что собственно и подтверждается.

---

← →
Danilka   (2003-02-13 15:42) [4]

можно сделать что-то типа этого:

type
TForm1 = class(TForm)
RichEdit1: TRichEdit;
Memo1: TMemo;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure RichEdit1Wnd(var Message: TMessage);
public
oldRichEdit1Wnd: procedure(var Message: TMessage) of object;
NotInRich:boolean;
end;

var
Form1: TForm1;
implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
NotInRich:=false;
oldRichEdit1Wnd:=RichEdit1.WindowProc;
RichEdit1.WindowProc:=RichEdit1Wnd;
end;

procedure TForm1.RichEdit1Wnd(var Message: TMessage);
begin
oldRichEdit1Wnd(Message);
case Message.Msg of
CM_MOUSEENTER: NotInRich:=false;
CM_MOUSELEAVE: NotInRich:=true;
CM_CANCELMODE: if NotInRich then ... //здесь твой код
end;
end;


---

← →
udavf   (2003-02-13 15:43) [5]

Anatoly Podgoretsky

OnDeactivate я использую у TForm, в которой нужный мне контрол.
Но. Application.OnDeactivate тоже нужен, потому как TForm.OnDeactivate не отрабатывает при переключени между приложениями.

Просто, как я писал, мне кажется это кривой способ, следить за тем что переключли приложение, или форму, в то время, когда нужно просто отработать потерю фокуса контрола.
Нуежели нет такого метода?

---

← →
Smithson   (2003-02-13 15:46) [6]

Сказали же уже
Есть универсальный способ - обработка сообщения WM_KILLFOCUS.


The WM_KILLFOCUS message is sent to a window immediately before it loses the keyboard focus.

WM_KILLFOCUS
hwndGetFocus = (HWND) wParam; // handle of window receiving focus


Parameters

hwndGetFocus

Value of wParam. Identifies the window that receives the keyboard focus (may be NULL).



Return Values

An application should return zero if it processes this message.

Remarks

If an application is displaying a caret, the caret should be destroyed at this point.

---

← →
Anatoly Podgoretsky   (2003-02-13 15:54) [7]

Application.OnDeactivate и Form.OnDeactivate один и тот же обработчик, это если ты не хочешь использовать WM_KILLFOCUS.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.02.24;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.014 c