Dock拖放的字体问题？(100分)

L

LoveDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-10

• #1

我把一个Toolbar的 DragKind 设为 Dock, DragMode 设为 Automation
设置好字体,生成几个 Button ,运行后可以将 Toolbar 拖出来，变成了
一个窗口，但是这时Button的字体发生了变化，变的很难看，Why?
怎样才能使字体保持不变?我把 Toolbar 换成 Panel 也不行。
另外，如果将拖出后的窗口关闭后，怎样才能吧 Toolbar 或 Panel再显
示出来呢？

 

康

康夫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-10

• #2

其ParentFont设为False即可.

 

U

Urlzo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-10

• #3

我也遇到过一样的问题，有谁知道答案请告诉我！！

 

康

康夫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-10

• #4

>>另外，如果将拖出后的窗口关闭后，怎样才能吧 Toolbar 或 Panel再显示出来呢？

ToolBar1.Show;

 

V

Victortim

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-10

• #5

同意。ParentFont的默认值为True，如果Button的ParentFont为True,则button的
字体为所在容器的字体。

 

Q

qf0421

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-10

• #6

用ACTION控制TOOLBAR的VISIBLE：
procedure TForm1.Action1Execute(Sender: TObject);
begin
action1.Checked:=not action1.Checked;
toolbar1.Visible:=action1.Checked;
end;

procedure TForm1.Action1Update(Sender: TObject);
begin
action1.Checked:=toolbar1.Visible;
end;

 

L

LoveDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-14

• #7

多人接受答案了。