文字隐藏与显示

var
    pSql:String;

    FUserName：String;
begin
    if FUserName='' then
    begin

        label名字.visible:=true;
        直接用label名字:='用户名不能为空！';
        edt_userName.SetFocus;
        EXIT;
    end;

先把label属性调成false，不让文字显示，然后再加上label名字.visible:=true;（将false在代码里改成true）