Hallo liebe Gemeinde,
Hoffe allen geht es gut !.
Also zu meinen Problem. Ich habe auf meine Form1 ein Array erstellt. Dann werden über zufall verschieden Kästchen aktuell mit einen X gekennzeichnet, danach soll der Benutzer alle markierten Zellen ebenfalls anklicken, ist so nen art gedächnissspiel..
Nun meine Frage wie kann statt ein X die Zelle einfärben. Habe auch schon viel im Forum dazu gefunden, doch kann mir einer evetuell den sysntax erklären.
Ich möchte das wenn ich auf die Zelle Klicke diese dann z.B. rot wird.
Muss ich dazu irgendwelche variablen deklarieren ?
Wäre super so in dieser art:
Code:
var
i:=integer; // variable i ist gleich integer
begin
i:=strtoint(edit1.text); // i lese aus edit 1 den text heraus, strtoin=string zu integer
end;
Habe auch shcon einen Code gefunden, könnte mir den jemand vlt. mal genau erklären, weil nur doof einfügen will ich net, möchte ganz gerne verstehenm was ich damit mach:
Code:
procedure TForm1.spielfeldDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if Odd(ACol) and not Odd(ARow) then
begin
spielfeld.Canvas.Brush.Color := clBlack;
end;
spielfeld.Canvas.FillRect(Rect);
end;
Vielen Dank schon mal für eure Hilfe....