关与锁定窗口缩放问题(100分)

C

CABD

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-09

• #1

Windows Media Player(R) 大家可以看到
就是程序界面可以放大 但是缩小的时候有一个界线值 再也缩不动了。。。
这是为了界面美观。。。我现在也需要这样的方法，，，
我用了类似 if width<200 then
width:=200
来限定 但闪烁的很。。。
请问应该怎样做？？？才能像Windows Media Player 那样
谢谢

 

D

D影子D

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-09

• #2

在width:=200时先停止timer事件，
if width<200 then
启用timer事件。

 

C

CABD

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-09

• #3

我没有用Timer控件呀
如果用的话 那闪烁岂不更厉害？？
我是在Form1.OnResize的时间中写的 if width<200 then
width:=200
不知有没有什么属性 或方法 禁止缩放？？

 

L

liuxi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-09

• #4

设置控件的Constraints属性的MinHeight、MinWidth值不就行了，窗体也
有这个属性。

 

C

CABD

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-09

• #5

接受答案了.

 

D

D影子D

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-09

• #6

timer1的interval:100;试试不闪烁
procedure TForm1.Timer1Timer(Sender: TObject);
var
i:integer;
begin
if form1.width<200 then
begin
for i:=form1.width to 200do
form1.width:=form1.width+1;
end;
end;