非常奇怪的问题 —— Statusbar 突然消失？(100分)

  • 主题发起人 主题发起人 Tempter
  • 开始时间 开始时间
T

Tempter

Unregistered / Unconfirmed
GUEST, unregistred user!
在Form上放一个Memo再放一个Statusbar，然后在Form的Resize事件中加入如下代码：

Memo1.height:=Form1.height-200;

运行程序，把窗口最大化，再恢复，这时Statusbar就消失了～

谁知道是什么原因？怎么解决吗？
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Align := alclient;
end;
去掉resize事件
 
to nicklung

resize事件如果可以去掉，我早去掉了！

这个方法不行啊~ 哪位兄弟有更好的方法，请指教指教~
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Statusbar1.Align := alCustom;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
Memo1.height:=Form1.height-200;
statusbar1.Top := form1.Height - 46;
statusbar1.Width := form1.width - 8;
end;
 
还是不行～
 
不会吧？你把我的代码直接copy去用！我这里用没问题了呀！
 
statusbar1.Anchors[aktop]设为true;
 
statusbar1.Anchors.aktop设为true就可以了
 
晕了~~~ 还是没搞定~

我真没想到delphi的statusbar这么难搞~

那位高人能再帮帮我啊~ 感激不尽啊~
 
靠，我的方法我试了很多次都可以的啊！
 
不知楼主要干什么，如果是想让Memo一直在statusbar的上边，这样设不就得了：
memo1.Align := alClient, statusbar.Align := clBottom不就行了

我都试过的，不用怀疑。

如果不是你所要求的话，建议你用Panel分割。我一直这样做的没问题。
 
状态栏应该没有这么复杂的，可能是上边的Panel设置的问题
 
没有那么复杂吧
可能是 visible=False;
 
同意YFeral
 
建议在新的Windows版本里废除Statusbar，免得让大富翁伤脑筋。
 
楼上的做法可以呀。你换分辨率试试，或者在另一台机上试试。
 
接受答案了.
 
您必须登录或注册才可回复。

Similar threads

N
头疼啊，奇怪的问题。关于align属性的。(100分)
回复
10
查看
384
notnoname
N
5
Action 的奇怪问题。(200分)
回复
16
查看
166
太阳火
太
Z
一个非常奇怪的问题，大家遇到过吗？(50分)
回复
1
查看
109
zhbforce
Z
V
奇怪的小问题关于TTreeView(50分)
回复
4
查看
121
vampire100
V
Z
问一个非常非常特殊消息框的问题！(50分)
2
回复
21
查看
230
zhang_yz6666
Z
后退
顶部