Создание компонента Delphi по шелчку мыши

← →
Kos135 © (2006-10-25 18:23) [0]

Пишу учебную программу по Delphi 6, как мне сделать чтобы по одному шелчку левой кнопки мыши на компоненте (Например SpeedButton) на самой форме появился этот компонент, но только в том месте на форме где щелкнешь мышкой.

← →
Palladin © (2006-10-25 18:25) [1]

мда... научатся по твоей учебной программе... зачем? самой делфи нехватает?

← →
DVM © (2006-10-25 18:29) [2]

procedure TForm1.FormClick(Sender: TObject); var pt: TPoint; SpeedButton: TSpeedButton; begin GetCursorPos(pt); pt := ScreenToClient(pt); SpeedButton := TSpeedButton.Create(Form1); SpeedButton.Parent := Form1; SpeedButton.Left := pt.x; SpeedButton.Top := pt.Y; end;

← →
Kos135 © (2006-10-25 18:34) [3]

Не для себя пишу для препода, тема курсовой такая !!!

>[3] Kos135(c) 25-Oct-2006, 18:34
>Не для себя пишу для препода, тема курсовой такая !!!
тут логическая нестыковка. курсовые прежде всего для себя делают. а если тебе оно нафиг не нужно -- ты не ту специальность выбрал.

Создание компонента Delphi по шелчку мыши Найти похожие ветки