做程序都需要的！(100分)

如何用一个按钮实现两个事件．
就像windowsmediaplayer的静音功能，按一下静音，再按下又播放声音．

很简单，做个标志； 比如放在控件的hint里
根据标志判断

能否具体点

倒，这么简单也要问，下面的程序可以给你一个小提示：

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;


var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

if button1.Caption='1' then
button1.Caption:='0' else
if button1.Caption='0' then
button1.Caption:='1';

end;


procedure TForm1.FormCreate(Sender: TObject);
begin

button1.Caption:='0';
end;


end.

procedure TForm1.button1Click(Sender: TObject);
begin

if button1.tag=0 then

begin

//静音代码
button1.tag:=1;
end else
if button1.tag=1 then
begin

//取消静音代码
button1.tag:=0;
end;

end;


有很多方法实现该功能

多人接受答案了。