> {quote:title=Adalberto Baldini wrote:}{quote}
> I have a form with :
>
> ActiveControl = Txt_Username (TEdit)
> procedure TLogin_dlg.FormShow(Sender: TObject);
> begin
> txt_username.SetFocus;
> Label5.Caption := ActiveControl.Name;// only for test
> end;
>
Use ActiveControl instead from txt_username.SetFocus; to ActiveControl := txt_username;