задача на onmousedown

[obsession]

создать проект "Цветочная поляна". При нажатии левой кнопки мыши в любом месте формы появляется рисунок цветка.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
image1.left:=x;
image1.Top:=y;

end;

end.

Подскажите, пожалуйста, что нужно еще добавить, чтобы нарисованый цветок не исчезал после следующего нажатия кнопки мыши

[Valio]

Твой код просто передвигает Image в точку нажатия мыши.
Используй Canvas формы.

[SERG1980]

Я бы посоветовал использовать TBitmap и отрисовывать его на канве формы

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var B:TBitMap;
begin
//при условии что файл цветка имеет расширение *.bmp
 B:=TBitMap.Create;
 B.LoadFormFile('Путь к файлу цветка');
 Form1.Canvas.Draw(x,y,B); 
 FreeAndNil(B);
end;

[Sparkman]

Кинь на форму еще Image2 со свойством:
Align = alClient.
Затем на самом Image2 нажми правой кнопкой мыши и в подменю Control выбери SendToBack.

После в событии Image2.OnMouseDown пиши:

procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
     image1.left:=x - image1.width div 2;
     image1.Top:=y - image1.height div 2;
     Image2.Canvas.CopyRect(Rect(x - image1.width div 2,y - image1.height div 2,x + image1.width div 2,y + image1.height div 2),Image1.Canvas,Rect(0,0,Image1.Width,Image1.Height));
end;

[obsession]

а по проще никак нельзя?

[SERG1980]

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

а по проще никак нельзя?

А куда уж проще то?

[xrob]

можно создать объект цветка,
содержащий указатель на битмап и две координаты - x, y;
создать массив таких объектов, и по щелчку мыши добавлять новый объект в массив.
а потом в OnPaint формы отрисовывать этот массив на канвасе формы.
при этом, кстати, будет мелькание...

а если вы просто нарисуете на канвасе формы, то рисунок сотрется при перетаскивании формы.
массив объектов цветка позволяет редактировать их положение/присутствие,
но если этого не нужно, то можно сделать проще:

создать битмап, размером с форму и при клике мышкой по форме рисовать на этом битмапе,
а в OnPaint формы отрисовывать этот битмап на канвасе формы.

вопрос к опытным програмерам - что будет быстрее, создать 20 TImage или массив с описанием цветков и каждый раз отрисовывать по новой?

[Sparkman]

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

а по проще никак нельзя?

можно , вот, во вложении то что я выше написал

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