Button eindrücken

[Sharky]

Hai LoL,

wenn es dir nur um die Optik geht könntest Du dafür auch ein Pannel missbrauchen (kannst ja eine Kompo davon ableiten)

Delphi-Quellcode:

var
  down: boolean;

procedure TForm1.Panel1Click(Sender: TObject);
begin
  with (Sender as TPanel) do
  if (down) then
  begin
    BevelOuter := bvLowered;
  end
  else
  begin
    BevelOuter := bvRaised;
  end;
  down := not (down);
end;