Каково назначение приводимого ниже фрагмента Delphi-модуля ?
- End;
- Begin
- Butt.Parent:= Self
- Var Butt: TButton;
- Butt.Left:= X; Butt.Top:= Y;
- Butt:= TButton.Create(Self);
- Procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState: X,Y: Integer);
- Создание экземпляров класса TButton в местах нанесения щелчков мыши по Button1
- Нанесение значений X,Y координат в местах нанесения щелчков мыши по форме
- Создание экземпляров класса TButton в местах нанесения щелчков мыши по форме Form
- Создание экземпляров класса TButton в местах нанесения щелчков мыши по форме Form1
К сожалению, у нас пока нет статистики ответов на данный вопрос,
но мы работаем над этим.