Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Praud
7 / 7 / 3
Регистрация: 25.02.2013
Сообщений: 237
#1

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

01.08.2013, 19:34. Просмотров 480. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос При нажатии пробела записать координаты в разные объекты (Delphi):

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

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

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

Как сделать чтобы при нажатии на определенную строку в Listbox, выводила разные компоненты с предложениями? - Delphi
Как сделать чтобы при нажатии на определенную строку в Listbox,выводила разные компоненты с предложениями : (ниже скриншоты)

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

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

2
FIL
Модератор
3408 / 2546 / 490
Регистрация: 19.09.2012
Сообщений: 7,906
01.08.2013, 20:10 #2
Добавь глобальную переменную и увеличивай ее при каждом нажатии.
0
Puporev
Модератор
54027 / 41660 / 14737
Регистрация: 18.05.2008
Сообщений: 97,944
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
Привет! Вот еще темы с ответами:

Записать координаты контура в линейный динамический список. Вычислить площадь контура и координаты ее веса - Delphi
Записать координаты контура в линейный динамический список. Вычислить площадь контура и координаты ее веса, изобразить контур на форме,...

При нажатии на кнопку вывести надпись, при нажатии на другую - сбросить - Delphi
Создайте программу, которая при нажатии на одну кнопку (объект Button) выводит на этикетку (Label) некоторую надпись, а при нажатии на...

Как вывести существующие объекты: линии и координаты линий? - Delphi
Как вывести сущестующие объекты: линии и координаты линий? unit Unit1; interface uses Windows, Messages, SysUtils,...

Записать в Memo случайные числа, и при нажатии кнопки удалить все нечетные числа - Delphi
Здравствуйте! Помогите, пожалуйста, с заданием: нужно при создании формы в компонент Memo записать от 10 до 50 случайных чисел в диапазоне...


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

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

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