- Katılım
- 29 Mayıs 2019
- Mesajlar
- 8,562
- Tepkime puanı
- 2
Kod:
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
R: TRect;
begin
I := R.Top - Height;
while Top > I do
begin
Top := Top - 2;
Repaint;
IdAntiFreeze1.Sleep(10);
IdAntiFreeze1.Process;
end;
IdAntiFreeze1.Sleep(1);
I := Screen.Width - 20;
while Top < I do
begin
Top := Top + 2;
Repaint;
IdAntiFreeze1.Sleep(10);
IdAntiFreeze1.Process;
end;
Close;
end;