喫茶XRAYトップページ

[▲前のスレッド]

[11716] TSpeedButton.Down の操作返信 削除
2018/2/11 (日) 22:46:40 Mr.XRAY
以下のサンプルを追加しました.

[910] [07_単独の TSpeedButton で Down 状態のトグル機能]
http://mrxray.on.coocan.jp/Delphi/plSamples/910_DisableBitmap.htm#07

で,記事を掲載したのでググってみます.
以下のようなのがありました.ハハハッ.
なんだかよく分かりません.
きっと掲載したコードは私の環境だけで機能するのかも知れません.

http://madia.world.coocan.jp/delphi/delphi_bbs/200705/200705_07050038.html
https://stackoverflow.com/questions/202702/how-to-make-a-delphi-tspeedbutton-stay-pressed-if-its-the-only-one-in-the-group


[11717] Re:TSpeedButton.Down の操作返信 削除
2018/2/11 (日) 22:49:38 Mr.XRAY
> きっと掲載したコードは私の環境だけで機能するのかも知れません.
>
> http://madia.world.coocan.jp/delphi/delphi_bbs/200705/200705_07050038.html


あっ !! 違う.仲間がいましたね.igy さん.ハハハッ


[11718] Re2:TSpeedButton.Down の操作返信 削除
2018/2/11 (日) 23:02:16 Mr.XRAY
> http://madia.world.coocan.jp/delphi/delphi_bbs/200705/200705_07050038.html

↑ の [ON OFF ボタンコントロールにするには?] は以下です.

http://madia.world.coocan.jp/cgi-bin/DelphiBBS/wwwlng.cgi?print+200309/03090059.txt

確かに TCheckBox は Windows のボタンコントロールですから可能ですね.
ただし,設計時はちょつと外観が異なりますが.


[11719] Re:TSpeedButton.Down の操作返信 削除
2018/2/12 (月) 16:17:42 Mr.XRAY
> http://madia.world.coocan.jp/delphi/delphi_bbs/200705/200705_07050038.html

こういうコードを書く発想というのはどこからくるのか知らん ?
もちろん,TSpeedButton のクリックイベントでなければ別ですが,

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
     if SpeedButton1.Down= false then
        SpeedButton1.Down:=true
     else
        SpeedButton1.Down:=false;
end;

以下だと永久ループになるのですぐ気付くと思いますが (笑)

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked then begin
    CheckBox1.Checked := False;
  end else begin
    CheckBox1.Checked := True;
  end;
end;


[11720] Re2:TSpeedButton.Down の操作返信 削除
2018/2/12 (月) 16:48:12 Mr.XRAY
> こういうコードを書く発想というのはどこからくるのか知らん ?
> もちろん,TSpeedButton のクリックイベントでなければ別ですが,


てなわけで,サンプルに以下のコードというか,説明を追加しました.

//=============================================================================
//  TSpeedButtonのクリックイベント
//=============================================================================
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  if TSpeedButton(Sender).Down then begin
    //DownプロパティがTrueになった時の処理
    //ボタンが下がった状態になった時の処理
  end else begin
    //DownプロパティがFalseになった時の処理
    //ボタンが上がった状態になった時の処理
  end;
end;

[▼次のスレッド]
INCM/CMT
Cyclamen v3.82