Új hozzászólás Aktív témák

• #1788 Gyuri16 senior tag Gyuri16 #1787

  Új Válasz 2010-02-25 16:39:32 #1788

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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