VPF::TStringGrid-ввод данных мышкой - Форум программистов

player

Дата 13.11.2004, 12:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 13.11.2004

Репутация: нет
Всего: нет

Подскажите, как можно реализовать такую штуку- при нажатии левой кнопки мыши на ячейке в нее заноситься "1" , при нажатии правой "0" ? Так как других чисел там не должно быть мне кажеться что это самый оптимальный способ ввода.

Pakshin A. S.

Дата 13.11.2004, 12:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Попробуй:

Код


procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  case Button of
   mbLeft: StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row]:='1';
   mbLeft: StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row]:='0';
  end
end;

player

Дата 13.11.2004, 13:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 13.11.2004

Репутация: нет
Всего: нет

Отлично! Работает, спасибо!
Еще бы фокус ячейки перемещался, т.е та ячейка которая под курсором получала фокус....
Буду думать....

p0s0l

Дата 13.11.2004, 13:38 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Так ?

Код

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var col, row : integer;
begin
  StringGrid1.MouseToCell(x, y, col, row);
  if (col >= StringGrid1.FixedCols) and (col < StringGrid1.ColCount) then StringGrid1.Col := col;
  if (row >= StringGrid1.FixedRows) and (row < StringGrid1.RowCount) then StringGrid1.Row := row;
end;

--------------------

С уважением, г-н Посол.

<Spawn>

Дата 13.11.2004, 13:49 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Цитата(Pakshin @ 13.11.2004, 04:50)

Попробуй:

Код


procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  case Button of
   mbLeft: StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row]:='1';
   mbLeft: StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row]:='0';
  end
end;

А можно в одну строчку smile

Код


procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row] := IntToStr(Integer(not Boolean(Button)));
end;

Или даже так, если не хочется использовать InToStr:

Код


procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row] := Chr(Integer(not Boolean(Button)) + 48);
end;

Это сообщение отредактировал(а) <Spawn> - 13.11.2004, 13:52

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »