Hirdetés
Ú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)
Új hozzászólás Aktív témák
- Sík panel és szupervékony káva a Vivo X300-ban
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- iPhone topik
- gban: Ingyen kellene, de tegnapra
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- A magas vérnyomást is felismerheti az Apple Watch Series 11
- TCL LCD és LED TV-k
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- Nők, nőügyek (18+)
- E-roller topik
- További aktív témák...
- AirPods Pro (2. generáció) MagSafe tokkal (USB-C)
- Gamer PC - i5 14400f, RTX 3080 és 32gb RAM + GARANCIA
- LG 55UK6300MLB 139 cm / 55 4K UHD Smart TV 6 hó garancia Házhozszállítás
- Lenovo ideapad 100 i3-5005u / 8gb ddr3 / 500gb Hdd / töltő / akku rossz- karcos
- Apple iPhone 13 Mini 128GB, Kártyafüggetlen, 1 Év Garanciával
- 3DKRAFT.HU - 3D NYOMTATÁS - AZONNALI ÁRAJÁNLAT - GYORS KIVITELEZÉS - 490+ POZITÍV ÉRTÉKELÉS
- AKCIÓ! Apple MacBook Pro 16 M4 Max 36GB RAM 1TB SSD macbook garanciával hibátlan működéssel
- Xiaomi Redmi Note 13 Pro+ 512GB, Kártyafüggetlen, 1 Év Garanciával
- iKing.Hu - Apple iPhone 14 Pro Max Stílusos erő, Pro kamera rendszerrel! 128GB - 3 hónap gari!
- EREDETI NINTENDO Pokemon Go Plus autocatcher dobozban eladó
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest