Why cursor visible at showmesage

[mierlp]

Hi

 

I was wondering why the cursor is always visible when a message is displayed.

In my situation i have inlog screen where is checked if the username field is

filled when the users pressed the OK button

 

I use this code :

 

  if Length(UniEdit_InlogUserName.text)=0 then begin
    Cursor:=crNone;
    ShowMessage('<br/><div align="center">You need to enter a username!' + '</div><br/>');
    Cursor:=crDefault;
    UniEdit_InlogUserName.Clear;
    UniEdit_InlogUserName.SetFocus;
    Abort;
 end;

 

Because the focus is on the UniEdit_InlogUserName you see cursor blinking

through the message... can it be done otherwise ?

 

Regards Peter