[Solved] How to unselect the text in a focused TEdit, programmatically

[cdbc]

Hi
I'm having a 'Brain-fart' 
I can't seem to figure out how to un-select the text in a focused TEdit, programmatically from within the containing form...?!?
Any help will be greatly appreciated.
Regards Benny

[ackarwow]

Maybe Edit.SelLength:=0 will be sufficient?

[dsiders]

Hi
I'm having a 'Brain-fart' 
I can't seem to figure out how to un-select the text in a focused TEdit, programmatically from within the containing form...?!?
Any help will be greatly appreciated.
Regards Benny

TEdit.ClearSelection

[cdbc]

Hi
Sorry guys, neither of your suggestions worked...
I'd like for the user to type onto the end of the pretext, but alas, when it's selected, the pretext just gets overwritten.
I've also tried:

Code: Pascal  [Select][+][-]

1.   edtMask.SelStart:= bcLengthUTF8(edtMask.Text);
2.   edtMask.SelLength:= 0;
3. or
4.   edtMask.Perform(LM_KEYDOWN,VK_END,VK_END);
5.   edtMask.Perform(LM_KEYUP,VK_END,VK_END);
6.  

Hmmm, what's next, to try...
Regards Benny

[Bart]

TEdit.ClearSelection

TEdit.ClearSelection: Removes the selected text from the edit control.

I think that's not what TS wants.

Bart

[Bart]

Are you using a TMaskEdit?
In that case: it'll always select at leas one character in the control when you type or tab into the control.

Setting SelLength to zero should just work (also for a TMaskEdit).

Bart

[cdbc]

Hi
Thanks Bart - No it's not and no it didn't...
Plain ol' TEdit.
Regards Benny

[ackarwow]

Hi
Sorry guys, neither of your suggestions worked...
I'd like for the user to type onto the end of the pretext, but alas, when it's selected, the pretext just gets overwritten.
I've also tried:

Code: Pascal  [Select][+][-]

1.   edtMask.SelStart:= bcLengthUTF8(edtMask.Text);
2.   edtMask.SelLength:= 0;
3. or
4.   edtMask.Perform(LM_KEYDOWN,VK_END,VK_END);
5.   edtMask.Perform(LM_KEYUP,VK_END,VK_END);
6.  

Hmmm, what's next, to try...
Regards Benny

@Benny
When do you call this code (what event)?

[cdbc]

Hi

When do you call this code (what event)?

It gets called just after I assign the 'pretext' to edtMask.Text, in the 'change-handler' for edtMask...
Regards Benny

[dsiders]

TEdit.ClearSelection

TEdit.ClearSelection: Removes the selected text from the edit control.

I think that's not what TS wants.

Bart

Doh. My bad.

[ackarwow]

Hi

When do you call this code (what event)?

It gets called just after I assign the 'pretext' to edtMask.Text, in the 'change-handler' for edtMask...
Regards Benny

You can try to change Edit1.AutoSelect property (if checked) into 'false' and then in change handler add something like this: Edit1.SelStart:=length(Edit1.Text);
(Edit1 is your TEdit)

[Bart]

This code moves the caret to the end of the text and unselects everything in a TEdit

Code: Pascal  [Select][+][-]

1.   Edit1.SelStart := MaxInt;
2.   Edit1.SelLength := 0;

Works fine for me.

Bart

[cdbc]

Hi
@Bart, hmm - not so much here... :/
Through fiddling, I got it to work... I think 
I ended up with this solution:

Code: Pascal  [Select][+][-]

1. procedure TfrmWords.DelayedShow(aData: ptrint);  // edtMask.SelStart:=  bcLengthUTF8(edtMask.Text)
2. begin
3.   edtMask.SelStart:= aData;
4.   edtMask.SelLength:= 0;
5. end;
6.  
7. procedure TfrmWords.FormShow(Sender: TObject);
8. begin
9.   Application.QueueAsyncCall(@DelayedShow,bcLengthUTF8(edtMask.Text));
10. end;
11.  
12. procedure TfrmWords.edtMaskChange(Sender: TObject);
13. begin { 'Text' property is the safer bet, 'cause the wordcompletion could come from a lib }
14.   if fStartsWith then lbxWords.Items.Text:= fwc.GetCompletedPrefix(edtMask.Text,false).Text { no is/as }
15.   else fwc.GetWordList(lbxWords.Items,edtMask.Text,true,false,256);
16.   if lbxWords.Items.Count > 0 then lbxWords.ItemIndex:= 0;
17. end;

Thank you for all of your suggestions...
Regards Benny

[jamie]

Code: Pascal  [Select][+][-]

1. procedure TForm1.Edit1Enter(Sender: TObject);
2. begin
3.   Exit;
4.   With TEdit(Sender) do
5.    Begin
6.      SelStart := CaretPos.X;
7.      SelLength := 0;
8.    end;
9. end;                            
10.  

How's that?
 

[paweld]

Code: Pascal  [Select][+][-]

1. procedure TForm1.Edit1Enter(Sender: TObject);
2. begin
3.   Exit;
4.   With TEdit(Sender) do
5.    Begin
6.      SelStart := CaretPos.X;
7.      SelLength := 0;
8.    end;
9. end;                            
10.  

@jamie: anything after exit will not be executed