SelectAll on Controlenter through MouseClick
Posted on 2000-03-15
I use Delphi4
if you click (with mouse lButton) in a TCombobox's edit, you will see,
that the content will selected (if autoselect=true).
if you click in a TEdit (AutoSelect is true). nothing is selected and the
cursor is set near mouse-click position.
I want to have the same behaviour as in TComboBox. So I try to set
"OnEnter" of the TEdit to something like
procedure TForm1.ControlEnter(Sender: TObject);
if sender is tedit then
with sender as Tedit do selectall;
but this will not help...
How to get the text selected, if click to the TEdit?
(If you enter the TEdit with TAB or calling SetFocus, the Text will be selected.
Only if you use the mouse, it fails)