Forum: Multimedia
Delphi
by Khabarakh,
23. Mär 2005
for I := 1 to strtoint(lbl1.Caption) do
biertest.top := biertest.Top + 20;
begin
if (biertest.Top + biertest.Height >= img1.Top) AND (biertest.Left <= img1.Left + img1.Width) AND (biertest.Left + biertest.Width >= img1.Left) then
begin
biertest.Visible := false;
lblres.Caption := inttostr(strtoint(lblres.Caption)+50);
end;
if biertest.Top > form1.ClientHeight then
...
Forum: Multimedia
Delphi
by Khabarakh,
23. Mär 2005
Sollte es nicht so heißen:
for I := 1 to strtoint(lbl1.Caption) do
begin
biertest.top := biertest.Top + 20;
Forum: Multimedia
Delphi
by Khabarakh,
23. Mär 2005
Hast du das so in deinem Code stehen?