bi resim proğramı yazıyorum ama ekle dediğim zaman image 1 in ustune yazı ekliycek yazı eklemeyi bi şekilde hallederimde surukleyerek yer değiştirmesini isdiyorum beceremedim
nerde hata yaptım ?
procedure TForm1.Label4MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button=mbLeft Then
label4.BeginDrag(true);
end;

procedure TForm1.Image1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if Source=label4 then
begin
accept:=true;
image1.DragCursor:=crhandpoint;
end;
end;
__________________