Создание компонента в месте клика

[Максим139]

Подскажите пожалуйста, а как создать компонент TImage в месте, куда кликнул на Tpanel?
Заранее благодарен!

[Sinapsik]

что-то типо такого

var
  Form1: TForm1;
  posX,posY:integer;
........................................................................................
procedure TForm1.Panel1Click(Sender: TObject);
var
Image:TImage;
begin
Image:=TImage.Create(self);
Image.Parent:=Form1;
Image.Top:=posY;
Image.Left:=posX;
Image.AutoSize:=true;
Image.Picture.LoadFromFile('F:\BV0270.jpg');
end;

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
posX:=X;
posY:=Y;
end;

[Сtrl]

Sinapsik, почему объект создаете локальный? Удалять-то из памяти как будете?

[Sinapsik]

Сообщение от Сtrl

Sinapsik, почему объект создаете локальный? Удалять-то из памяти как будете?

извиняйте,как умею :D
подправьте меня,будет только лучше

[Сtrl]

var
  Form1: TForm1;
  Image1: TImage;

...

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1 := nil;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FreeAndNil(Image1);
end;

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (Image1 = nil) then
  begin
    Image1 := TImage.Create(Self);
    Image1.Parent := Self;
    Image1.AutoSize := True;
    Image1.Picture.LoadFromFile('FILENAME.BMP');
    Image1.Visible := True;
  end;
  Image1.Left := Panel1.Left + X;
  Image1.Top := Panel1.Top + Y;
end;

[Sinapsik]

Век живи...
Признаю,никогда не забочусь о памяти,считаю что прошли те времена )

[Сtrl]

Сообщение от Sinapsik

Век живи...
Признаю,никогда не забочусь о памяти,считаю что прошли те времена )

Времена, когда о ней заботились - прошли, но когда на нее наплевали - еще не настали.

UPD а если в моем варианте по закрытию темы destroy'ить Image?

Интересно, как у вас это получится, если вы после завершения функции Panel1Click безвозвратно теряете ссылку на этот объект...

[Sinapsik]

Сообщение от Сtrl

Времена, когда о ней заботились - прошли, но когда на нее наплевали - еще не настали.


Интересно, как у вас это получится, если вы после завершения функции Panel1Click безвозвратно теряете ссылку на этот объект...

1) не будем оффтопить )
2) уже понял свою ошибку,потому и отредактировал )
3) спасибо за небольшой урок )