曾經看過有種功能是
一各BUTTON 按一下是開 然後BUTTON上面也秀開
在按一下是關閉BUTTON上面也秀關閉
在按一下開
請問這樣兩種功能該怎麼寫呢??

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet

你要不要試一下SpeedButton 可能是你要的

------
額有朝天骨,眼中有靈光

[code delphi]
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Caption := '開啟';
Button1.Tag := 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
B: TButton;
begin
if Sender is TButton then
begin
B := TButton(Sender);
B.Tag := (B.Tag 1) mod 3;
case B.Tag of
0: B.Caption := '開啟';
1: B.Caption := '暫停';
2: B.Caption := '關閉';
end;
end;
end;
[/code]

編輯記錄

您好,

邏輯怪怪的,
我的想法是 : 按開, button 顯示關, 再按一次顯示開

b u t t o n 1 o n c l i c k :

if button1.caption ='開' then begin
做 開的事情;
button1.caption := '關';
end
else begin
做關的事情;
button1.caption := '開';
end;

參考一下

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄