Hirdetés
- Gaming notebook topik
- Milyen TV-t vegyek?
- TCL LCD és LED TV-k
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Házimozi haladó szinten
- Azonnali informatikai kérdések órája
- Azonnali VGA-s kérdések órája
- Androidos tablet topic
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
Ú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
- ASUS TUF RTX 5070Ti OC 16GB GDDR7 Videokártya! BeszámítOK
- Acer Swift 3 Ultrabook / Ryzen 7 5700U / RX Vega 5 / 16 GB RAM / 512 GB SSD
- ASUS TUF FX505DU - 15,6"FHD IPS 120Hz - Ryzen 7-3750H - 8GB - 512GB - Win11 - GTX 1660 Ti - MAGYAR
- Gamer PC-Számítógép! Csere-Beszámítás! R5 3600 / RX 5700 / 16GB DDR4 / 512GB SSD
- GIGABYTE Z390 AORUS MASTER WiFi Alaplap
- 157 - Lenovo LOQ (15ARP9) - AMD Ryzen 7 7435HS, RTX 4060
- HIBÁTLAN iPhone 14 Pro 256GB Space Black -1 ÉV GARANCIA -Kártyafüggetlen, MS3235
- Mobiltelefon, konzol és TV felvásárlás gyorsan, biztonságosan!
- Bomba ár! HP ProBook 440 G3 - i5-6GEN I 4GB I 128SSD I HDMI I 14" FHD I Cam I W10 I Garancia!
- CORSAIR K100 AIR
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest