Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Cheguevara © (2004-12-31 21:11:00)
Вот я кликаю мышью, и мне надо чтобы там где я кликнул появился тот компонент который мне нужен. Создавать компоненты я то умею, как сделать так чтобы они в координатах клика появились?Хэлп плиз

Cheguevara (2005-01-01 01:36:00) [1]
СЭНКС

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

begin...end (2004-12-31 23:24:00) [3]
> [4] Cheguevara (31.12.04 22:39)

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

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

Cheguevara (2004-12-31 22:39:00) [4]
Спасибо! Только вот я насоздавал объектов, а как мне сделать чтобы у некоторых из них свойства отличались, не подскажеш?

jack128 (2004-12-31 21:57:00) [5]
Это класс твоего объекта. Если те нужно сохранить ссылку на сам объект, то так

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 21:47:00) [6]
TMyControl это мой объект?

jack128 (2004-12-31 21:35:00) [7]
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;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »