Merlin’s Delphi Forge

Let’s say you have a data entry form or a MP3 ID3 tag editor form. The user clicks the “Clear” button. The more edit controls you have the less you want to write the code to clear them Well, here’s a better idea:

procedure TMainForm.btnClear(Sender: TObject);
var
iI: Integer;
begin
for iI := 0 to [...]

Animated cursors have become very popular in the days of Windows 3.x. Now they have become a part of Windows 95 and newer. Sometimes you might want to use your own animated cursors instead of the user’s. The idea is same as with “normal” cursors.
Here’s the code:

const
btCursorID1 = 1;
begin
(* sCursorFile - [...]