С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Praud
7 / 7 / 9
Регистрация: 25.02.2013
Сообщений: 237
1

При нажатии пробела записать координаты в разные объекты

01.08.2013, 19:34. Просмотров 493. Ответов 2
Метки нет (Все метки)

При нажатии пробела нужно чтобы записывались координаты в разные объекты.
Код:

Delphi
1
2
3
4
5
6
if key=VK_SPACE then
  begin
 
 
    GetCursorPos(Point[1]);
    Memo1.Lines.Add('(X=' + IntToStr(Point[1].X)+ ',Y='+ IntToStr(Point[1].Y)+')');
Как сделать так чтобы когда я нажал еще раз на пробел уже записало в Point[2]?
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.08.2013, 19:34
Ответы с готовыми решениями:

При нажатии пробела или Enter-а текст стирается в редакторе кода
В Delphi при нажатии пробела или Enter-а текст стирается, в чем дело? ...

Разные действия при нажатии на кнопку
Как сделать что бы при нажатии разных чекбоксов выполнялись разные действия при...

При нажатии на разные кнопки считывать информацию из разных файлов
Как правильно написать код, чтобы при нажатии на кнопку считывалась информация...

Как сделать чтобы при нажатии на определенную строку в Listbox, выводила разные компоненты с предложениями?
Как сделать чтобы при нажатии на определенную строку в Listbox,выводила разные...

Чтоб курсор перескакивал с Edit1 на Edit2 по нажатии пробела
Как можно организовать чтоб после заполнения поля Edit курсор перескакивал с...

2
FIL
Модератор
3422 / 2556 / 728
Регистрация: 19.09.2012
Сообщений: 7,926
01.08.2013, 20:10 2
Добавь глобальную переменную и увеличивай ее при каждом нажатии.
0
Puporev
Модератор
55500 / 42591 / 29441
Регистрация: 18.05.2008
Сообщений: 100,748
01.08.2013, 20:14 3
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  Form1: TForm1;
  i:integer; //глобальная переменная-счетчик
implementation
 
{$R *.dfm}
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var Point:array of TPoint;
begin
if key=VK_SPACE then
  begin
   inc(i);
   setlength(Point,i);
   GetCursorPos(point[i-1]);
   Memo1.Lines.Add('(X=' + IntToStr(Point[i-1].X)+ ',Y='+ IntToStr(Point[i-1].Y)+')');
  end;
end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.08.2013, 20:14

Как сделать, чтобы при первом нажатии на кнопку TButton появлялось одно сообщение, а при втором нажатии - другое?
помогите как сделать в чтобы в кнопке button при первом нажатий вылазило...

Записать координаты контура в линейный динамический список. Вычислить площадь контура и координаты ее веса
Записать координаты контура в линейный динамический список. Вычислить площадь...

Как вывести существующие объекты: линии и координаты линий?
Как вывести сущестующие объекты: линии и координаты линий? unit Unit1; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru