Простая задача создания графического интерфейса

Question

У меня есть очень простая задача, но я не нашел хороший способ, как я должен решить эту проблему:

У меня есть поле TEdit. Когда я вхожу в это поле редактирования, я хочу показать панель. Когда я нажимаю на панель, панель должна скрываться. Когда я покидаю поле редактирования, панель также должна скрываться, но я не могу использовать событие onExit для editField, потому что это скроет панель, прежде чем я могу ее щелкнуть. Я экспериментирую какое-то время, чтобы решить эту проблему, но не могу найти элегантный способ ... Любые идеи? благодаря!

Answer 1

Вы можете использовать ActiveControl свойство формы в OnClick случае панели и OnExit случае EditField

Answer 2

Ну, это is a сложный. Рассматривали ли вы скрытие панели с событием onEnter для каждого элемента управления кроме панели и поля редактирования?

Другими словами, панель не скроется при выходе из поля редактирования и введите панель, но она будет скрыть себя, как только она выполнит свою работу.

Выход из поля редактирования и ввода любого поля, кроме панели, также приведет к скрыть панель.

Ничего из этого не вызывается полем редактирования onExit, а также другими полями при их вводе. Это запутанно, но это может сработать. Смотрите таблицу ниже условий и связанных с ними действий:

   onExit onEnter  panelAction 
       ------- -------  ----------- 
panel   nothing nothing  hide panel 
edit field nothing show panel nothing 
all others nothing hide panel nothing 

Answer 3

на самом деле вы можете использовать OnExit, потому что панель не является целесообразна, поэтому ваше редактирование по-прежнему фокусируется при нажатии на панель (проверено с помощью d7).

это либо это, либо я не понял, что вам нужно. если последний случай, попробуйте перефразировать как Gabr предполагалось ранее;)

приветствий, G

Answer 4

я проверить вашу проблему. проверьте это.

procedure TForm1.Edit1Enter(Sender: TObject); 
begin 
    Panel1.Visible := true; 
end; 

procedure TForm1.Edit1MouseLeave(Sender: TObject); 
begin 
    Panel1.Hide; 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    Edit1.TabStop := False; 
    Panel1.Visible := False; 
end; 

procedure TForm1.Panel1Click(Sender: TObject); 
begin 
(Sender as TPanel).Visible := false; 
end;