Последние записи

made in programmersforum 6

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

24th
Июн

Конструктор пластиковых окон на Delphi

Posted by admin under Delphi, Архив, Топик-обзор

Интересна тема на форуме от мая 2010 года — Конструктор пластиковых окон

Elvisnya:

очу написать «конструктор» пластиковых окон, но даже не знаю с чего начать. Конструктор окон должен выглядеть примерно ТАК. Посоветуйте какие компоненты лучше использовать для такой задачи, и в общих чертах как это реализовывать.

P.S. Хотел использовать TShape, но не знаю как сделать:
выделение при щелчке (Чтобы указывать программе куда ставить створку или например импост)
динамическое создание новых фигур TShape (например добавляю в процессе работы программы новую форточку или например новый импост)

Stilet:

Ну вообще-то TShape для этогоне очень подходит.
Впрочим назнач им всем один и тот же обработчик OnMouseDown

Okno.Elem[Okno.Count].OnMouseDown:=Shape1MouseDown;
Где
procedure Shape1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Описанная в составе класса TForm1

А в ней TShape(Sender) даст тебе обьект по которому кликнули.

Elvisnya:

Stilet спасибо, сделал как вы сказали. Получилось.

пластиковые окна нарисованные в delphi — компонент Shape.

Почти…
почему на Shape2, чтобы он окрасился в красный цвет, нужно нажимать два раза, а не один раз и как это исправить?
procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

  (Sender as TShape).Brush.Color:=clRed;

end;
procedure TForm1.Shape2MouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

  Shape2.OnMouseDown:=Shape1MouseDown;

end;
почему на Shape2, чтобы он окрасился в красный цвет, нужно нажимать два раза, а не один раз и как это исправить?

Stilet:

Ты что наделал то?
Ты должен был каждой фигуре один обработчик присвоить, а это:
procedure TForm1.Shape2MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Shape2.OnMouseDown:=Shape1MouseDown ;

end;
Говорит о том что первый клик — присвоение обработчика, второй его выполнение.
Вообще убери эту чушь. И кажой фигуре присвой Shape1MouseDown

Продолжение и подробнее в теме форума.