Peşpeşe Mesaj Vermek

[arjen]

Beyler benim sorum aslında oldukça basit galiba.
Mesela bir button yaptım ve buna her tıkladığında ayrı bir mesaj verdirmek istiyorum.(butona tıklayınca mesajı verecek (showmessage) onaylayınca kapanacak ve tekrar o butona tıklanırsa belirlenen farklı bir mesajı verecek)Bunun kodları nasıl yazılır?

[unicorn64]

mesajlar ve gösterilme sırası sabitse, mesajlar bir diziye alınır, global tanımlanacak integer bir değişken üzerinden hangi mesajın gösterileceği kontrol/takip edilir...

[sabanakman]

Dizi yöntemine yakın başka bir teknik. (Balığı buradan tutup yolluyoruz )

Kod: Tümünü seç

var i:Integer=1;

procedure TForm1.Button1Click(Sender:TObject);
var S:String;
begin
  case i of
    2:S:='2. mesaj';
    3:S:='3. mesaj';
    4:S:='4. mesaj';
  else
    i:=1;
    S:='İlk mesaj';
  end;
  ShowMessage(S);
  i:=i+1;
end;

[arjen]

Teşekkürler çok sağolun vaktim olunca deneyeceğim..