我在toolbar中放有四个speedbutton名为:s1,s2,s3,s4依次排序在上面,
就是我在form的onshow事件写:s2.visable:=false;这样运行结果是:s2的位置空在那边,像多了个洞,这样的界面不好看,有什么办法,让S2不空出来,直接是s3,如下:
运行前:s1s2s3s4
运行后:s1 s3s4(我想的结果是:s1s3s4)
就是我在form的onshow事件写:s2.visable:=false;这样运行结果是:s2的位置空在那边,像多了个洞,这样的界面不好看,有什么办法,让S2不空出来,直接是s3,如下:
运行前:s1s2s3s4
运行后:s1 s3s4(我想的结果是:s1s3s4)
解决方案 »
- 关于KRF-35读写器修改M1卡密码的问题
- 禁止重画某个窗口,怎么做?
- 这个问题何解?在C/S的服务器端就不能写数据库吗? Delphi2009+Idtcpserver+Adoconnection
- 在 RichEdit 中插入 Gif 后, 如图片太多,CPU 占用很高,如何解决?
- paradox问题
- 如何实现:在TEdit控件里面实现检测按了上下左右的按键?
- 用API写串口通讯,是不是只能在98下运行?
- 以西游记盘点2009的一些流行趋势
- sql server2000的问题(在线等待)
- 如何使 delphi 6 里面的 TActionMenu 具有 菜单伸缩功能
- 关于WAV文件的时间问题
- 如何用Delphi制作录音程序
s2.destroy;
可以得到了效果,但是我如果是用来注销登录的话,也就是第二个用户拥有了s2的权限,它就找不到了S2就出错了?请部怎么做??
然后循环,创建,就可以了。
只需要把enable :=false ;就可以了
可以看到,但是不能够点击 ,
一样可以实现你的要求啊
begin
s2.Tag:=s2.Left;
s3.Tag:=s3.Left;
s4.Tag:=s4.Left;
end;
procedure TForm1.FormShow(Sendet:TObject);
begin
if s2.Visible then
begin
s2.Left:=s2.Tag;
s3.Left:=s3.Tag;
s4.Left:=s4.Tag;
end
else
begin
s3.Left:=s2.Tag;
s4.Left:=s3.Tag;
end;
end;