По клику мыши в объекте имаге должна создаваться картинка в соответсвующем месте
вот
procedure TForm1.gamefieldClick(Sender: TObject);
var Method : TMethod; cpos:TPoint;
begin
GetCursorPos(cpos); //mouse coords in screen
cpos:=ScreenToClient(cpos); //mouse coords in form
Method.Code:=@towerclick;
Method.Data:=t;
new(t);
t^.p:=TImage.create(Self);
t^.p.Parent:=Self;
t^.p.Left:=cpos.X;
t^.p.Top:=cpos.Y;
towers_count.Caption:=inttostr(strtoint(towers_count.Caption)+1);
t^.p.Name:='id'+towers_count.Caption;
t^.p.Picture.LoadFromFile('tower.emf');
t^.p.Stretch:=true;
t^.p.OnClick:=TnotifyEvent(Method);
t^.next:=nil;
end;
но не создается.... правда, когда этот же код был в процедуре по клику на форме - создавалось... такое чувство, что там с Parent чё-то не то, но если поменяю, то ошибка
Примечание:
спс, в общем Я там поразмещал так, что осталось пустой кусок формы, где башенки красиво ставятся )
осталось вроде бы немного, и игрушка будет готова
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.