Troca Imagens

[Guest - tiago -]

Como poderia fazer troca de posição de imagens no delphi? e tipo uma analise combinatoria e gostaria do algoritimo, pois tenho seis imagens para ocupar em 4 posicoes, so que elas tem q trocarem de lugar para definir a melhor forma. Obrigado.

[Graymalkin]

Coloque duas images no form e carregue figuras em ambas, e coloque o código abaixo no evento OnClick de um botão:

var posx, posy : integer;

begin
  posx := image1.Left;
  posy := image1.Top;
  image1.Left := image2.Left;
  image1.Top := image2.Top;
  image2.Left := posx;
  image2.Top := posy;
end;

Você quer dizer algo assim?

Abraços,

Graymalkin