Как менять ячейки Stringgrid местами ?

@Alex45496 · Регистрация: 21.02.2016

Author24 — интернет-сервис помощи студентам

у меня такая проблема,мне надо сделать так,чтобы при нажатии в начале на 1 ячейку stringgrid ,а затем на 2 они поменялись местами(возможно это можно как-то сделать через кнопку или через mouseclick)

@Hikari · 21.03.2016, 19:45

С коленки:

Delphi

var  s:string; a:TPoint;
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.StringGrid1Click(Sender: TObject);
begin
  if tag=0 then with TStringGrid(Sender) do begin
     a.x:=Col;a.y:=Row; tag:=1;
  end else
   if tag=1 then with TStringGrid(Sender) do begin
      s:=Cells[a.x,a.y];Cells[a.x,a.y]:=Cells[Col,Row];Cells[Col,Row]:=s;
      tag:=0;
   end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  tag:=0;
end;

Т.е. запоминать куда первый раз кликнули, и использовать запомненное при втором клике.

@Alex45496 · 21.03.2016, 20:35 **[ТС]**

спасибо)у меня еще вопрос?У меня ничего не происходит,после того как я кликаю на первую ячейку ,а затем на вторую.

@Hikari · 21.03.2016, 20:54

Иногда мое увлечение With переходит все границы

Пиши self.tag.
Или заведи вместо tag какую нибудь глобальную перменку.

@Alex45496 · 21.03.2016, 21:09 **[ТС]**

спасибо!!!

@Alex45496 0 / 0 / 0 Регистрация: 21.02.2016 Сообщений: 36
		1
	Как менять ячейки Stringgrid местами ? 21.03.2016, 19:29. Показов 1122. Ответов 4 Метки нет (Все метки) у меня такая проблема,мне надо сделать так,чтобы при нажатии в начале на 1 ячейку stringgrid ,а затем на 2 они поменялись местами(возможно это можно как-то сделать через кнопку или через mouseclick) 0

@Alex45496 0 / 0 / 0 Регистрация: 21.02.2016 Сообщений: 36
	21.03.2016, 20:35 [ТС]	3
	спасибо)у меня еще вопрос?У меня ничего не происходит,после того как я кликаю на первую ячейку ,а затем на вторую. 0

@Hikari Хитрая блондиночка $) 1472 / 988 / 399 Регистрация: 21.12.2015 Сообщений: 3,785
	21.03.2016, 20:54	4
	Иногда мое увлечение With переходит все границы Пиши self.tag. Или заведи вместо tag какую нибудь глобальную перменку. 0

@Alex45496 0 / 0 / 0 Регистрация: 21.02.2016 Сообщений: 36
	21.03.2016, 21:09 [ТС]	5
	спасибо!!! 0