buton durumu

[ademcicek]

herkese kolay gelsin.

benim sorunum
benim bir butonum var. ben butona ilk tıklandığında a görevini yaptırmak istiyorum, ikinci tıkladığımda b görevini yaptırmak istiyorum.
yani herbir tıklandığında ya a görevini ya b görevini yapmasını sağlamak istiyorum.
çok teşekür ederim

[mussimsek]

Merhaba,

bir global boolean değişken tanımla. Mesela goreva diye. daha sonra kodda şöyle birşey olmalı.

Kod: Tümünü seç

....
Form1: TForm1...
GorevA : Boolean;
....

procedure TForm1.Button1Click(Sender)
begin
  GorevA := not(GorevA);
  if GorevA then
    begin
       {a görevini yap}
    end
  else
    begin
       {b görevini yap}
    end;
end;

Kolay gelsin.

[hakkus]

merhaba,
integer bir değişken tanımla, porgram başlarken değerini 1 ata sıfır da atayabilirsin, butona her basıldığında bu değeri bir artır, ve bir if cümlesiyle sayı tekse şunu yap sayı çiftse şunu yap bu kadar.
saygıyla

[rsimsek]

Mustafa nın cevabına ek olarak, her basışta Button un Caption unu da değiştirebilirsin. Böylece tıklama ile hangi işlem yapılacağı belli olur.