Kliknięcie odpowiedniego buttona

0

Witam! Mam taką procedurę:

procedure TForm2.Klik(t: Integer);
var i: Integer;
begin
  Case t of
  1..8:
  begin
  ......
  end;
  End;
end;

A na formie 9 Buttonów o takich tagach:
1 2 3
4 5 6
7 8 9

Nazywają się odpowiednio:
m1 m2 m3
m4 m5 m6
m7 m8 m9

Teraz chciałbym sprawdzić w zależności od otrzymanego parametru t który z 3 buttonów nie jest kliknięty (czyli właściwość Enabled := True). Tylko, że ma to być w takiej kolejności:

t = 1 buttony 1 4 7
t = 2 buttony 2 5 8
t = 3 buttony 3 6 9
t = 4 buttony 1 2 3
t = 5 buttony 4 5 6
t = 6 buttony 7 8 9
t = 7 buttony 1 5 9
t = 8 buttony 3 5 7

Jakieś podpowiedzi? Wskazówki?

0

Jakieś podpowiedzi? Wskazówki?

A z czym ty masz problem? Mimo że to dział newbie to chyba nie oczekujesz że zrobimy ci wykład jak działa instrukcja przypisania i if...

0

Wiem jak działają te 2 instrukcje. Nie oczekuję odpowiedzi typu
if t = 1 then
begin
if m1.enabled = true then m1.click
else if m4.enabled = true then m4.click else m7.click
end;
if t = 2 then
begin
if m2.enagled=true...

Tylko jakiegoś logicznego wyjaśnienia. Nobie.

0

Na końcu TForm2.FormCreate wypełnij tablicę 8x3 odpowiednimi buttonami:

tab[1,1] := Button1;
tab[1,2] := Button4;
tab[1,3] := Button7;
tab[2,1] := Button2;
tab[2,2] := Button5;
tab[2,3] := Button8;
...

Aby odwołać się do odpowiedniego buttona skorzystaj z tablicy którą wypełniłeś:

tab[t,1]
tab[t,2]
tab[t,3]
0

Nobie.

Akurat ja tutaj 'nobem' nie jestem kolego. Szanuj innych, zwłaszcza tych bardziej doświadczonych. Postujesz w dziale newbie a wyzywasz innych od 'nobow'...

Tylko jakiegoś logicznego wyjaśnienia.

Przecież zrobiłeś nawet ifa więc z czym masz problem. Na klasach zapewne się nie znasz więc nie będziesz potrafił zastosować tablicy buttonów więc napisz sobie to z ifami.

0

Oj tam nie strasz. Do mojego przykładu wystarczy jeszcze tylko odpowiednia deklaracja tablicy:

var
  tab: array [1..8, 1..3] of TButtton;

Z programowaniem obiektowym nie ma to wiele wspólnego.

0

Dziękuję bardzo adf88 :) Bardzo mi pomogłeś :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1