1、弹出窗体
要想在一个窗体中弹出另一个窗体,方法如下:
uses Unit2(窗体单元名);
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'等错误