Как, по-простому, и можно ли, вообще, узнать куда уходит или откуда пришел фокус?
Спасибо
PS Я пришел к этой задаче от следующей. Есть чек-бокс. Когда он чекнут должно открыться(сделаться видимым) поле текстового ввода. На анчек, то поле должно обнулиться и закрыться(сделаться невидимым) . Кроме того, если по выходу из текстового поля оно пустое, надо анчекнуть чек-бокс и закрыть текстовое поле. Ниже привожу код, но он меня не вполне удовлетворяет - отсюда и вопрос.

Код

class TForm1 : public TForm { __published: // IDE-managed Components TCheckBox *cb; TEdit *edt; TButton *Button1;  // 4 testing only void __fastcall cbClick(TObject *Sender); void __fastcall edtExit(TObject *Sender); void __fastcall cbEnter(TObject *Sender); private: // User declarations    bool cbf; public:  // User declarations __fastcall TForm1(TComponent* Owner); }; //--------------------------------------------------------------------------- void __fastcall TForm1::cbClick(TObject *Sender) {   if (cbf) return;   edt->Visible = cb->Checked;   if (edt->Visible)edt->SetFocus();   else edt->Text = ""; } //--------------------------------------------------------------------------- void __fastcall TForm1::edtExit(TObject *Sender) {   if (edt->Text.IsEmpty()){      edt->Visible = false;      cbf = true;      cb->Checked = false;   } } //--------------------------------------------------------------------------- void __fastcall TForm1::cbEnter(TObject *Sender) {   if (cbf)cb->Checked = true;   cbf = false; } //---------------------------------------------------------------------------

Первое, что приходит на ум и самое простое решение - пишем свой компонент, который объединяет CheckBox и Edit в некий свой собственный компонент с своим характерным поведением. Собственно сила ООП именно в таких решениях. А ещё свойство формы ActiveControl указывает на контрол, на котором находится фокус.

Не уверен, чтл это самое простое...Про силу в своем, по меньшей мере, неоднозначно. Написание собственных компонентов, ПО-МОЕМУ, должно происходить либо от их уникальности(нет близких аналогов), либо, наоборот, массовости - нужно через одного или проходит насквозь через весь проект. Данный пример ни под то, ни под другое определение не попадает. Тут, скорее всего, я просто не вижу элементарного алгоритмического решения. Собственно, полный код и приведен для любопытствующих.

TScreen::OnActiveControlChange не поможет делу?

Vyacheslav,
я боюсь, что не понял идеи... Дело в том, что код, приведенный мною, требует лишнего клика если фокус приходит с любого 3-го объекта. Потому мне и надо знать куда/откуда уходит/приходит фокус или найти лучший алгоритм

Цитата(brb @ 10.2.2003, 05:02)

Написание собственных компонентов, ПО-МОЕМУ, должно происходить либо от их уникальности(нет близких аналогов), либо, наоборот, массовости - нужно через одного или проходит насквозь через весь проект.

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

Ну что-то вроде этого, если я правильно понял.

Код

class TForm1 : public TForm { TWinControl* PrevControl; //... }; void __fastcall TForm1::TForm1(TComponent* Owner)        TForm(Owner) {  Screen->OnActiveControlChange = ChangeFocus; PrevControl = ActiveControl; } //событие по смене фокуса void __fastcall TForm1::ChangeFocus(TObject *Sender) { //здесь мы получили на коротокое время до следующего присвоения //различать от кого и к кому перешел фокус if (PrevControl == ...  &&  ActiveControl == ...) { // что- то делаем  }     PrevControl = ActiveControl; }

Vyacheslav
Как сочетается это и это

Код

Screen->OnActiveControlChange = ChangeFocus;

Код

void __fastcall TForm1::ChangeFocus(TObject *Sender)

А далее, в соответствии с моим примером

Код

if (PrevControl == cb  &&  ActiveControl == edt) //я правильно понял?

спасибо.

Цитата

Как сочетается это и это

TScreen::OnActiveControlChange - событие, которое возникает при смене фокуса имеет тип

Код

typedef void __fastcall (__closure *TNotifyEvent)(System::TObject* Sender);

В Builder'е это всего лишь указатель на метод объекта (подчеркиваю, не класса, а конкретного объекта - это расширение С++), т.к в отличие от обычного указателя содержит не только указатель на функцию но и на сам объект( всего длина 8 байт). Объявляется на Builder c помощью ключевого слова __closure. Т.е кодом

Код

Screen->OnActiveControlChange = ChangeFocus;

я указателю на метод объекта присваиваю указатель на ChangeFocus, который как раз и является таким методом.

Цитата

void __fastcall TForm1::ChangeFocus(TObject *Sender)

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

Код

if (PrevControl == cb  &&  ActiveControl == edt) //я правильно понял?

В общем, да. Просто я не вдавался в подробности реализации, а предлагал вариант получения контрола, от которого пришел фокус

А вот это то, что я хотел!

Код

//--------------------------------------------------------------------------- #ifndef chkboxH #define chkboxH //--------------------------------------------------------------------------- #include <vcl\Classes.hpp> #include <vcl\Controls.hpp> #include <vcl\StdCtrls.hpp> #include <vcl\Forms.hpp> //--------------------------------------------------------------------------- class TForm1 : public TForm { __published: // IDE-managed Components TButton *Button1; TGroupBox *GroupBox1; TCheckBox *cb; TEdit *edt; void __fastcall cbClick(TObject *Sender); void __fastcall edtExit(TObject *Sender); void __fastcall cbEnter(TObject *Sender); void __fastcall GroupBox1Exit(TObject *Sender); private: // User declarations    bool cbf; public:  // User declarations __fastcall TForm1(TComponent* Owner); }; //--------------------------------------------------------------------------- extern TForm1 *Form1; //--------------------------------------------------------------------------- #endif

Код

//--------------------------------------------------------------------------- #include <vcl\vcl.h> #pragma hdrstop #include "chkbox.h" //--------------------------------------------------------------------------- #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::cbClick(TObject *Sender) {   if (cbf) return;   edt->Visible = cb->Checked;   if (edt->Visible)edt->SetFocus();   else edt->Text = ""; } //--------------------------------------------------------------------------- void __fastcall TForm1::edtExit(TObject *Sender) {   if (edt->Text.IsEmpty()){      edt->Visible = false;      cbf = true;      cb->Checked = false;   } } //--------------------------------------------------------------------------- void __fastcall TForm1::cbEnter(TObject *Sender) {   if (cbf)cb->Checked = true;   cbf = false; } //--------------------------------------------------------------------------- void __fastcall TForm1::GroupBox1Exit(TObject *Sender) {   cbf = false; }