我学Delphi心得及笔记常用问题与解决方法

1、弹出窗体

要想在一个窗体中弹出另一个窗体,方法如下:

uses 窗体单元名;
formName.show;

formName.showmodel 返回一个窗体状态句柄。关闭窗体:close;

2、关于禁用最大最小化窗体方法

设置窗体的boderstyle为:bsTooWind

3、Delphi 7 读写文件方法

var

  fp:TextFile;
  fileName:string;
//获得项目根目录
fileName:=ExtractFileDir(Application.ExeName)+'\FrmSetColumn.ini';//当前项目目录下的文件
 try
    assignfile(fp,fileName);
    rewrite(fp);
    writeln(fp,'要写的内容');//写入文件内容
    CloseFile(fp);
    except on e:Exception do
      showmessage(e.Message);
    end;

//读文件方法

if FileExitiss(fileName) then

begin
  AssignFile(fp,fileName);
     Reset(fp);
     Readln(fp,str);
     CloseFile(fp);

end

else

begin

  showmessage('文件不存在');

end

在一个窗体中可以操作另一个窗体中的控件,通过引用窗体所在的单元,以单元名.窗体的控件;

4、让delphi第三方控件businessSkin中的bsSkinrichedit的滚动条显示出来

要再添加一个bsSkinScrollBar,设置其kind属性为sbVertical,在bsSkinRichEdit的VScrollBalr属性里选上bsSkinScrollBar控件就可以了,大小和位置自己调整下应该就能满足你的要求了

5、安装Indy 9

卸载delphi7的原来版本,在component -> Install packages...在packages列表中找到internet Direct (Indy) for D7..将钩去掉,点击ok.
File->open...打开Delphi_Indy_9.0.18/dclIndy70.dpk  编译安装即可.

6、让窗体始终保持最前面方法:

设置窗体的FormStyle属性设成:fsStayOnTop;

7、windows系统操作

关机:ExitWindowsEx(EWX_POWEROFF OR EWD SHUTDOWN,0)

注销:ExitWindowsEx(EWX_LOGOFF,0)

重启:ExitWindowsEx(EWX_REBOOT,0)(必须有操作的权限)

8、setFocus 的使用

setFocus 使用前该控件或窗体必须是在完全呈现后,且不能为隐藏或未创建,调用 些方法应该判断其是否为nil否则会出现 'CanNot Focus a disabled or invisbled window'等错误

原文地址:https://www.cnblogs.com/youshan/p/2111649.html