|
Вопрос # 3 726/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
Есть ли в Delphi возможности для реализации следующего:
на канве задаем точки с помощью клика мыши.После отображения точки, ее координаты отображаются на форме(допустим на Label-е).
 |
Вопрос задал: drema (статус: Посетитель)
Вопрос отправлен: 2 февраля 2010, 08:37
Состояние вопроса: открыт, ответов: 2.
|
Ответ #1. Отвечает эксперт: Жикльор
Здравствуйте, drema!
Чтобы получить координаты точки, создаете обработчик события OnMouseDown и пишите такой код:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Label1.Caption:='X=' + IntToStr(x) + ' ' + 'Y=' + IntToStr(y);
end;
 |
Ответ отправил: Жикльор (статус: 5-ый класс)
Время отправки: 2 февраля 2010, 10:04
|
Ответ #2. Отвечает эксперт: Паровоз
Здравствуйте, drema!
Используйте обработчик OnClick:
procedure TForm1.FormClick(Sender: TObject);
var
Point:TPoint;
begin
GetCursorPos(Point);
Point:=ScreenToClient(Point);
Label1.Caption:=IntToStr(Point.X);
Label2.Caption:=IntToStr(Point.Y);
end;
 |
Ответ отправил: Паровоз (статус: 10-ый класс)
Время отправки: 2 февраля 2010, 10:08
Оценка за ответ: 5
|
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 2 февраля 2010, 08:46; участников в обсуждении: 1.
|
min@y™ (статус: Доктор наук), 2 февраля 2010, 08:46 [#1]:
Цитата (drema):
Есть ли в Delphi возможности для реализации следующего
Да, есть.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|