دکمه دو حالته

[siroosss]

باسلام
من قصد دارم یه دکمه دو حالته بسازم که با کلیک دو دستور متفاوت رو اجرا کنه ولی با این تفاوت که
اگه بار اول کاربر کلیک کرد دستور اول رو اجرا کنه و بار دوم دستور دوم اجرا بشه
با کلیک های بعدی همین عمل تکرار میشه
من کد زیر رو نوشتم و قاعدتا باید درست کار کنه ولی نمی دونم مشکل از کجاست
لطفا کمکم کنید

var
Form2: TForm2;
B:boolean =true;

implementation

{$R *.dfm}

procedure TForm2.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin

if B=true then
begin
Label1.Caption:='true';
B:=false;
end;
if B=false then
begin
Label1.Caption:='false';
B:=true;
end;
end;

end.

[یوسف زالی]

سلام.
خودتون چشمی تریس کنید متوجه می شید، اون IF چرا Else نداره؟ اگر این کار رو نکنید همیشه وارد دومی هم می شه!

اصلاح شد:


procedure TForm2.Button1Click(Sender: TObject);
begin
Button1.Tag := 1 -Button1.Tag;

if Button1.Tag = 1 then
begin
end

else
begin
end;
end;