Как создать компоненту в координатах клика мыши?

← →
Cheguevara (2004-12-31 21:11) [0]

Вот я кликаю мышью, и мне надо чтобы там где я кликнул появился тот компонент который мне нужен. Создавать компоненты я то умею, как сделать так чтобы они в координатах клика появились?Хэлп плиз

← →
jack128 © (2004-12-31 21:35) [1]

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
with TMyControl.Create(Self) do
begin
Top := Y;
Left := X;
Parent := Self;
end;
end;

← →
Cheguevara (2004-12-31 21:47) [2]

TMyControl это мой объект?

← →
jack128 © (2004-12-31 21:57) [3]

Это класс твоего объекта. Если те нужно сохранить ссылку на сам объект, то так

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
MyControl := TMyControl.Create(Self);
with MyControl do
begin
Top := Y;
Left := X;
Parent := Self;
end;
end;

← →
Cheguevara (2004-12-31 22:39) [4]

Спасибо! Только вот я насоздавал объектов, а как мне сделать чтобы у некоторых из них свойства отличались, не подскажеш?

← →
begin...end © (2004-12-31 23:24) [5]

> [4] Cheguevara (31.12.04 22:39)

> Только вот я насоздавал объектов, а как мне сделать чтобы
> у некоторых из них свойства отличались, не подскажеш?

Установить значения этих свойств, можно сразу после создания.
СсылкаНаОбъект.Свойство := Значение

Cheguevara (31.12.04 22:39) [4]
Только вот я насоздавал объектов, а как мне сделать чтобы у некоторых из них свойства отличались, не подскажеш?
Вставляй после "Parent := Self".

← →
Cheguevara (2005-01-01 01:36) [7]

СЭНКС

Как создать компоненту в координатах клика мыши? Найти похожие ветки