por lo visto deseo poder hacer ésto,o si no es posible,una función.
También adaptar una foto al tamaño del bitbutton.
Una última cosa,si pincho en un Timage del Form1.image1Onclick(),para acceder a otro form2,y pinco en bitbtn de copia de fotos,me dá error en la
línea de código donde está el 'and',se supone q la condición está bien:
procedure TForm2.Suma_copia0Click(Sender: TObject);
begin
while (Form1.Image1.OnClick) and (cantidades.Count > i) do
begin
copia1:=StrToFloat(cantidades.Strings[i]);
copia1:=copia1+1;
cantidades.Strings[i]:= FloatToStr(copia1);
Form2.Edit1.Text:=FloatToStr(copia1);
Form2.Edit2.Text:=FloatToStr(1.50*copia1)+'€';
end;
Se dice un warning de que no encuentra los parámetros,¿puede q haya q añadir algo en 'uses'?
Saludos,gracias.