高手们,怎么在Form中让其他的Frame显示呢,谢谢你们了,现在很急
解决方案 »
- IdUDPClient1.Send的问题 来者有分
- 能举例说明winexec的使用方法吗?
- 关于ADO的问题,高手请进
- ADO提取数据遇到古怪的问题???Borland的Bug???对ADO/OLE以及各种数据类型精通的大虾请进.
- 怎样获取COOKIE啊
- ActiveX问题
- 怎样不让DBGRID显示水平滚动栏?
- 如何在程序运行时动态设定ADOConnection1.ConnectionString的值;
- 如何实现在一个窗口中任意地添加、修改图片或文字,并进行打印(像用在贺卡编辑中)这样的功能
- delphi的程序里面怎么修改一个PB程序数据窗口中的数据
- 使用 TXLSFile 类导出 Excel时,汉字后带有空格,请问高手解决过么?
- delphi XE 怎样设置全局编译条件?
if TreeView1.Selected.Level=1 then
dm.ADOQ_user.Close;
dm.ADOQ_user.Open;
dm.ADOQ_user.First;
dm.ADOQ_user.locate('用户名',username,[]);
if TreeView1.Selected.Text='用户管理' then
begin
if not dm.ADOQ_user.FieldByName('是否有用户管理权限').AsBoolean=True thenbeginMessageBox(handle,'对不起,您没有足够的权限使用该功能!','权限不足',MB_ICONWARNING+MB_OK);
Exit;
end
else
begin
ShowFrame_user;
end;
end;
if TreeView1.Selected.Text='修改密码' then
ShowFrame(1);说ShowFrame是错的
Frame := TFrame1.Create(self);
frame.Parent := Panel1;
frame.Align := alClient;
Frame := TFrame1.Create(self);
frame.Parent := Panel1;
frame.Align := alClient;
这个吗?嘿嘿
Frame := TFrame1.Create(self);
frame.Parent := Panel1;
frame.Align := alClient;
假设:你的Tframe名称frm_JinDu所要放置的位置是Panel8
剩下的代码是:
frm_JinDu.Align := alClient;
frm_JinDu.ManualDock(Panel8, nil, alClient);
frm_JinDu.Show;
frm_JinDu.Init_Show();
擦