form dizaynı

[droxee]

s.a.
yaptığım projemde formuma 2 tane image nesnesi ekledim bunlardan birini hareket ettirerek x,y koordinatını aldırıyorum bunda sıkıntı yok fakat ikinci image nesnesini formu kapla şeklinde koymam gerekiyor bunu yaptığımda diğer x,y koordinatını aldırdığım image nesnesini hareket ettiremiyorum.tasarım anında sent to back falan yaparak öne arkaya getirebiliyorum ancak program çalıştığında bunu yapamıyorum yardım eden arkadaşlara teşekkür ederim.

[droxee]

olmuyor arkadas bu kodlarla hareket edecek image 'ı konumlandırıyorum. sabit image önünde veya arkasında işlem yapamıyorum.

Kod: Tümünü seç

var
map_object_moveable:boolean;
map_object:TImage;
..
..
procedure Tfrm_stok_kart.IMGMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  map_object_moveable := true;
  map_object := TImage(Sender);
end;

procedure Tfrm_stok_kart.IMGMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  map_object_moveable := false;
end;

procedure Tfrm_stok_kart.TabSheetKonumMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  if map_object_moveable = true then
  begin
    try
      map_object.Top := Y;
      map_object.Left := X;
      frm_stok_kart.Caption := Format('x:%d y:%d', [X,Y]);
    except
      on E: Exception do
        ;
    end;
  end;
end;

[droxee]

mrmarman kodları ve ekstra 2 panelle çözdüm sorunu kodlar aynı paylaştığımla..