- Aliexpress tapasztalatok
- SkyShowtime
- Hálózati / IP kamera
- Adobe Lightroom topic
- Linux kezdőknek
- 3 évig még biztosan nem rendelhetünk Xiaomi EV-t
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- Milyen routert?
- Már nem az Apple a kínai mobilpiac kedvence
- A Coca-Cola következő nagy újítása az AI
Új hozzászólás Aktív témák
-
Gyuri16
senior tag
válasz Gyuri16 #1787 üzenetére
itt egy egyszeru klikkelgetos megoldas:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
procedure FormCreate(Sender: TObject);
private
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
var
jatekos:char;
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
if StringGrid1.Cells[ACol, ARow] <> '' then
exit; // ha mar van ott valami nem irjuk felul
StringGrid1.Cells[ACol, ARow]:=jatekos;
if jatekos='X' then
jatekos:='O'
else
jatekos:='X';
{
ide johet a kiertekeles, dll meghivasa stb
}
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
jatekos:='X';
end;
end.(a formcreate ertelemszeruen a formnak az oncreate esemenye)
Nem vagyok egoista, csak uborkagyalu!
Új hozzászólás Aktív témák
- Politika
- Robot fűnyírók
- Motorola Edge 30 Neo - wake up, Jr...
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Amlogic S905, S912 processzoros készülékek
- Kerékpárosok, bringások ide!
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Gyúrósok ide!
- A fociról könnyedén, egy baráti társaságban
- Főzőcskés topic
- További aktív témák...