大家好! 我有一個按鈕，想做ON，OFF的功能.比如說:當是ON的時候，點擊它，其caption變為OFF,若為OFF時,點擊它則變為ON(預設為OFF.) 並且當是ON的時候,希望caption有時隱時現的效果以提示用戶.(請問此效果是否一定要用Timer元件做？又如何寫代碼呢？),當用戶再點擊時,則出現一提示信息，是否變為OFF ?若選擇是則變為OFF,否則不做任何動作.    我的代碼如下:

var
  Form1: TForm1;
  bTest : Boolean ;    procedure TForm1.FormCreate(Sender: TObject);
begin
  bTest := true ;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  bTest := not(bTest) ;       if bTest then
   if messageDlg('是否OFF ? ',mtConfirmation,[mbYes,mBno],0) = mrNo then
      begin
        bTest := not(bTest) ;
        Abort ;
      end;      if bTest then
     Button1.Caption := 'OFF'
  else
     Button1.Caption := 'ON' ;
end;

我現在的問題是: 1. 請大家幫忙看一下這樣寫是否正確，雖然測試是可以，但是總覺得這樣寫不太對勁 2. 請問caption時隱時現的功能要怎麼做呢?請指教，謝謝!

就是要放一個 Timer 阿~~而且 Timer 的Enabled 預設值是 False;    

 
procedure TForm1.Button1Click(Sender: TObject);
begin
    if ( Button1.Caption = 'OFF' ) then
    begin
        Button1.Caption := 'ON';
        Timer1.Enabled := True
    end
    else
    begin
        Button1.Caption := 'OFF';
        Caption := '現在按鈕是OFF';
        Timer1.Enabled := False;
    end;    end;    procedure TForm1.Timer1Timer(Sender: TObject);
begin
    if( Caption = '' ) then
        Caption := '現在按鈕是ON'
    else
        Caption := '';    end;    end.    

bTest ->改為直接使用Button1.Tag 省了一個變數 Const On_Off : Array[0..1] of String = ('ON','OFF'); begin Button1.Tag := ORD(Button1.Tag=0); if Button1.Tag=1 then if MessageDlg...... Button1.Caption := On_Off[Button1.Tag]; Timer1.Enabled := Button1.Tag=0; 在 OnTimer 事件中 添加 begin Timer1.Tag := ORD(Timer1.Tag=0); Button1.Visible := Timer1.Tag=1; end; 寫的很亂！參考參考！閃爍的效果最好是 隱藏時間較短顯示時間較長一點。 Sorry! 搶題了 ...... 發表人 - wameng 於 2005/04/04 15:56:43

Var BL : Boolean ;
procedure TForm1.Button1Click(Sender: TObject);
begin
  If BL then
    begin
      if MessageDlg('Do you OFF??',
        mtConfirmation, [mbYes, mbNo], 0) = mrYes then
        begin
          Button1.Caption:='OFF';
          BL:= False;
        end;        end else begin
      Button1.Caption:='ON';
      BL:=True;
    end;
end;    procedure TForm1.FormCreate(Sender: TObject);
begin
  BL:=True;
end;

發表人 - juneo 於 2005/04/04 16:26:03

海星大大你好!Caption顯示效果測試ok.謝謝您的指導 >

當Button1.Tag := 0 時 條件式 Button1.Tag = 0 成立時，以布林值來說就是 True ORD(True) = 1 。 因此 當Button1.Tag = 0 時，Button1.Tag 就會等於 1 反之，Button1.Tag := 1時。 條件不成立(False)，ORD(False) = 0 .....

引言:

Var BL : Boolean ;
procedure TForm1.Button1Click(Sender: TObject);
begin
  If BL then
    begin
      if MessageDlg('Do you OFF??',
        mtConfirmation, [mbYes, mbNo], 0) = mrYes then
        begin
          Button1.Caption:='OFF';
          BL:= False;
        end;        end else begin
      Button1.Caption:='ON';
      BL:=True;
    end;
end;    procedure TForm1.FormCreate(Sender: TObject);
begin
  BL:=True;
end;

發表人 - juneo 於 2005/04/04 16:26:03

謝謝juneo大大的熱心幫助.我稍改一下范例程式碼就可以了 < class="code"> procedure TForm1.FormCreate(Sender: TObject); begin BL:=False ; //預設為OFF end; TO: wameng大大:謝謝你耐心的教導!讓我學到了新的東西(對於我這個Delphi新手來說).< > 再次謝謝各位大大!!!< >

引言:

Var BL : Boolean ;
procedure TForm1.Button1Click(Sender: TObject);
begin
  If BL then
    begin
      if MessageDlg('Do you OFF??',
        mtConfirmation, [mbYes, mbNo], 0) = mrYes then
        begin
          Button1.Caption:='OFF';
          BL:= False;
        end;        end else begin
      Button1.Caption:='ON';
      BL:=True;
    end;
end;    procedure TForm1.FormCreate(Sender: TObject);
begin
  BL:=True;
end;

發表人 - juneo 於 2005/04/04 16:26:03

謝謝juneo大大的熱心幫助.我稍改一下范例程式碼就可以了 < class="code"> procedure TForm1.FormCreate(Sender: TObject); begin BL:=False ; //預設為OFF end; TO: wameng大大:謝謝你耐心的教導!讓我學到了新的東西(對於我這個Delphi新手來說).< > 再次謝謝各位大大!!!< >