ボタンをひっこんだままにする

全然 役にはたちませんが、Buttonがひっこんだままにする方法です。ボタンに BM_SETSTATEメッセージを送ればいいみたいです。フォーカスを得るとまた戻ります。

■ ボタンをプッシュ状態にする例

procedure TForm1.Button2Click(Sender: TObject); begin Command1.Perform(BM_SETSTATE,LongInt(True),0); end.