Форум: "Основная";
Текущий архив: 2005.01.16;
Скачать: [xml.tar.bz2];
ВнизКак создать компоненту в координатах клика мыши? Найти похожие ветки
← →
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)
> Только вот я насоздавал объектов, а как мне сделать чтобы
> у некоторых из них свойства отличались, не подскажеш?
Установить значения этих свойств, можно сразу после создания.
СсылкаНаОбъект.Свойство := Значение
← →
GrayFace © (2004-12-31 23:40) [6]Cheguevara (31.12.04 22:39) [4]
Только вот я насоздавал объектов, а как мне сделать чтобы у некоторых из них свойства отличались, не подскажеш?
Вставляй после "Parent := Self".
← →
Cheguevara (2005-01-01 01:36) [7]СЭНКС
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.01.16;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.038 c