花落谁家，你作主！	盛大widget设计大赛英雄榜

用什麼按鈕,怎樣設置:當第一次按的時候凹下去,第二次按的時候才恢復過來.

楼主dgljf（小而逐步）2004-09-04 15:48:52 在 Delphi / 语言基础/算法/系统设计提问

TKS 问题点数：10、回复次数：9Top

1 楼Tensionli（）回复于 2004-09-04 16:00:26 得分 1

toolbuttonTop

2 楼lanny540（lanny）回复于 2004-09-04 16:43:14 得分 1

比如 toolbutton
把 style 属性改成 tbsCheck 就可以了Top

3 楼dgljf（小而逐步）回复于 2004-09-06 09:17:58 得分 0

我的怎麼沒有這個組件?Top

4 楼godnoloveihavelove（快感）回复于 2004-09-06 11:25:32 得分 1

toolbutton
Top

5 楼suton（suton）回复于 2004-09-06 13:30:22 得分 1

:),面板上是没有的,只有TOOLBAR.Top

6 楼raulchen（劳尔）回复于 2004-09-14 11:29:15 得分 1

TSpeedButton也可以
需要设定 GroupIndex := 1Top

7 楼SpeedyHorse（鑫磊）回复于 2004-09-14 11:31:09 得分 1

TOOLBAR 上的ToolButtonTop

8 楼IwantFlay（小飞）回复于 2004-09-14 11:47:26 得分 1

用TSpeedButton看看呢

procedure Tform1.SpeedButton1(Sender: TObject);
begin
if SpeedButton1.tag = 1 then
begin
SpeedButton1.flat := true;
SpeedButton1.tag = 0;
end
else
begin
SpeedButton1.flat := false;
SpeedButton1.tag = 1;
end;
end;Top

9 楼dgljfdgljf（1111）回复于 2005-03-12 10:04:29 得分 3

GroupIndex := 1
Top