|
> こういうコードを書く発想というのはどこからくるのか知らん ?
> もちろん，TSpeedButton のクリックイベントでなければ別ですが，
てなわけで，サンプルに以下のコードというか，説明を追加しました．
//=============================================================================
// TSpeedButtonのクリックイベント
//=============================================================================
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if TSpeedButton(Sender).Down then begin
//DownプロパティがTrueになった時の処理
//ボタンが下がった状態になった時の処理
end else begin
//DownプロパティがFalseになった時の処理
//ボタンが上がった状態になった時の処理
end;
end;
|