Получение фокуса

[Andre44]

Подскажите можно ли определить каким способом ( клавиатурой или мышью) был получен фокус edit'ом? Или есть какое событие которое по клику мыши срабатывает раньше чем OnEnter?

[Stilet]

События такого скорее нет чем есть. (хотя OnClick вроде еще не отменили)
А зачем тебе это нужно?

[Andre44]

OnClick Не спасает, т.к. он обрабатывается позже OnEnter. А надо что бы по клику мыши первый раз выделялся тект.

procedure TForm2.edit1Click(Sender: TObject);
begin
  if SelectEdit then
    begin
      edit1.SelectAll;
      SelectEdit:=False;
    end;
end;

procedure TForm2.edit1Exit(Sender: TObject);
begin
  SelectEdit:=true;
end;

Это в принципе работает, но если фокус по Tab, то уже при фокусе по первому клику текст выделяется тоже, а этого быть уже не должно.

[Stilet]

т.к. он обрабатывается позже OnEnter.

а OnMouseDown?

а этого быть уже не должно.

Не понял... Чего быть не должно? Пропиши в OnEnter отмену выделения, а в OnClick выделение.

[Andre44]

Сообщение от Stilet

а OnMouseDown?

Его тоже пробовал.

Не понял... Чего быть не должно? Пропиши в OnEnter отмену выделения, а в OnClick выделение.

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