Panelを使用してButtonを作る
38	PanelButton	動作確認	Delphi2007	更新日	2008/01/28(月)

Panelを使って、ボタンのように見せかけてみました。

マウスを押している間、へこんでいるように
PanelのBevelのUpDownを制御するだけです。

Panel.OnClickイベントでボタンクリック時の
動作を記述するとよいでしょう。

────────────────────
object Panel1: TPanel
  Align = alTop
  Caption = 'Button1'
  OnClick = Panel1Click
  OnMouseDown = Panel1MouseDown
  OnMouseUp = Panel1MouseUp
end
────────────────────
procedure TForm1.Panel1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
    (Sender as TPanel).BevelOuter := bvLowered;
end;

procedure TForm1.Panel1MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
    (Sender as TPanel).BevelOuter := bvRaised;
end;
────────────────────