procedure TForm2.Image2DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept:=Source is Tlabel;
Accept:=Source is Timage;
end;
------------
用这们的代码,只默认后一种有效。。
State: TDragState; var Accept: Boolean);
begin
Accept:=Source is Tlabel;
Accept:=Source is Timage;
end;
------------
用这们的代码,只默认后一种有效。。
Accept :=True
else
Accept :=False;
楼主你不会用if语句的吗?