Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Приветствую, уважаемые эксперты!
Есть ли в 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

Мини-форум вопроса

min@y™ (статус: Доктор наук), 2 февраля 2010, 08:46 [#1]: Цитата (drema): Есть ли в Delphi возможности для реализации следующего Да, есть. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.