Cant'get focus back after ShowMessage

[mierlp]

Hi,

 

After using a ShowMessage for displaying a mesage i can't get back the focus on the field.

When a user hit's a button the following code is executed. Normally it have to set the

focus on the field,but this is not working...or i'm doinng something wrong

 

 

procedure TFormAccountInlog.UniBitBtn_SaveClick(Sender: TObject);
begin
 if Length(UniEdit_InlogUserName.text)=0 then begin
    ShowMessage('<br/><div align="center">Het invulllen van een gebruikersnaam is verplicht!' + '</div><br/>');
    Abort;
    UniEdit_InlogUserName.SetFocus;
 end;
end;

 

Regars Peter

[heromo80]

procedure TFormAccountInlog.UniBitBtn_SaveClick(Sender: TObject);
begin
 if Length(UniEdit_InlogUserName.text)=0 then begin
    ShowMessage('<br/><div align="center">Het invulllen van een gebruikersnaam is verplicht!' + '</div><br/>', procedure (res:integer) begin
      Abort;
      UniEdit_InlogUserName.SetFocus;
    end); 
 end;
end;

 

[mierlp]

Hi

 

Thanks for the reply...it works...and i'm happy

 

 

Regards Peter

[belo]

Hi

 

Thanks for the reply...it works...and i'm happy

 

 

Regards Peter

 

procedure (res:integer) ???

 

 

Does not work!

 

You can post your solution?

 

Thanks!

[Ronak]

procedure TFormAccountInlog.UniBitBtn_SaveClick(Sender: TObject);
begin
  if Length(UniEdit_InlogUserName.text)=0 then begin
     ShowMessage('<br/><div align="center">Het invulllen van een gebruikersnaam is verplicht!' + '</div><br/>', procedure (res:integer) begin
       UniEdit_InlogUserName.SetFocus;

       Abort;  // Attn.
     end);
  end;
end;

[belo]

procedure TFormAccountInlog.UniBitBtn_SaveClick(Sender: TObject);

begin

  if Length(UniEdit_InlogUserName.text)=0 then begin

     ShowMessage('<br/><div align="center">Het invulllen van een gebruikersnaam is verplicht!' + '</div><br/>', procedure (res:integer) begin

       UniEdit_InlogUserName.SetFocus;

       Abort;  // Attn.

     end);

  end;

end;

 

Thanks Ronak.