|
・ あんまり更新しないのも何かなというのと、ちょっと需要があったので 一応こういうのもかいときます。 Delphiのひとは"DelphiQ&A120選"大野元久著 株式会社ビレッジセンター出版局 に書いてあります。Delphi3版がでていると思うのでそちらを買うべきだとは思いますが。 でもマンデルブロー集合のをみてみると・・・。
class TForm1 : public TForm
{
__published: // IDE 管理のコンポーネント
TLabel *Label1;
void __fastcall FormCreate(TObject *Sender);
private: // ユーザー宣言
public: // ユーザー宣言
__fastcall TForm1(TComponent* Owner);
void __fastcall AppIdle(TObject* Sender , bool& Done );
};
int i;
char a[100];
void __fastcall TForm1::AppIdle(TObject* Sender , bool& Done )
{
itoa(i, a, 10);
Label1->Caption = a;
Done = False;
i++;
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
i = 0;
Application->OnIdle = &AppIdle;//アイドルなときに実行する関数のアドレスを渡してやります。
}
OnIdleイベントがもういらないと思ったら Application->OnIdle = NULL; でイベントの処理をはずすことが出来ます。 |