Сверху\снизу

[Marsik]

Здравствуйте! Подскажите пож-та как сделать так чтобы рисунок был сверху другого:
у меня есть рисунок на image1 и рисунок "добытый" процедурой:
procedure TForm1.FormCreate(Sender: TObject);
begin
card:=TBitmap.Create;
card.Width:=100;
card.Height:=150;
card.LoadFromFile('card.bmp');
DoubleBuffered:=true;
end;
И почему то при перемещении image1 всегда ока-ся сверху "добытого",
а мне надо наоборот,чтобы image1 был снизу!Не знаете как это осуществить?

From Stilet: Тему называй пожалуйста по нормальному, иначе отвечать на нее на захотят

[AidarBik]

Что-то не совсем понятно... Покажи что ль исходник.

[Stilet]

ока-ся сверху "добытого",

А ты где этот "добытый" отрисовываешь?

[Marsik]

Айдар вот код:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

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

var
Form1: TForm1;
card: TBitmap;
cx,cy,fx,fy: integer;
MouseOnCard, catch: boolean;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
card:=TBitmap.Create;
card.Width:=100;
card.Height:=150;
card.LoadFromFile('card.bmp');
DoubleBuffered:=true;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.Draw(cx,cy,card);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (x > cx) and (x < cx+100) and (y > cy) and (y < cy+150) then
begin
if not MouseOnCard then
begin
MouseOnCard:=true;
Cursor:=crHandPoint;
end;
end
else
if MouseOnCard then
begin
MouseOnCard:=false;
Cursor:=crDefault;
end;

if catch then
begin
cx:=x-fx;
cy:=y-fy;
Repaint;
end;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if MouseOnCard then
begin
catch:=true;
fx:=x-cx;
fy:=y-cy;
end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if catch then catch:=false;
end;

end.

[Marsik]

Стилет "добытое" на форме Form1 рисуется

[mutabor]

О, знакомый код
Image снизу не будет, ты либо все рисунки держи в имиджах (их можно таскать точно так же) и меняй то один сверху то другой (не помню свойство или OnTop или что-то с этим связаное), либо все рисунки рисуй на канве (из битмапов), тогда контроль кто сверху кто снизу у тебя, к-рый последний отрисовал тот и сверху.

[Marsik]

Не я пробовал в имиджах,но они не перемещаются!там выходит что то типа ошибка timage tgraphic.Может что то менять надо в коде?

[mutabor]

Перетаскивание одного имиджа, свойство имиджа Enabled поставь False
Если их много нужно делать массив, или же для каждого обрабатывать события мыши отдельно, и потом неизвестно их кол-во фиксировано или может меняться.

var
Form1: TForm1;
cx,cy,fx,fy: integer;
MouseOnCard, catch: boolean;
imw,imh: integer;//ширина и высота имиджа

procedure TForm1.FormCreate(Sender: TObject);
begin
DoubleBuffered:=true;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
//не нужен
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (x > cx) and (x < cx+imw) and (y > cy) and (y < cy+imh) then
begin
if not MouseOnCard then
begin
MouseOnCard:=true;
Cursor:=crHandPoint;
end;
end
else
if MouseOnCard then
begin
MouseOnCard:=false;
Cursor:=crDefault;
end;

if catch then
begin
cx:=x-fx;
cy:=y-fy;
Image1.Left:=cx;
Image1.Top:=cy;
end;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if MouseOnCard then
begin
catch:=true;
fx:=x-cx;
fy:=y-cy;
end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if catch then catch:=false;
end;

[Marsik]

Мутадор я как только не вставлял твой код,перепробовал все,а результата ноль.Главное ни единой ошибки,а имидж не двигается и все!Впрям как часовые!

[mutabor]

Ну так переменные позаполнять надо вначале

procedure TForm1.FormCreate(Sender: TObject);
begin
imw:=Image1.Width;
imh:=Image1.Height;
cx:=Image1.Left;
cy:=Image1.Top;
DoubleBuffered:=true;
end;

не забудь Image.Enabled = False