Peter Arrenbrecht, December 2000
The TEmbeddableDUnitDialog
class extends the TDUnitDialog
class to make it embeddable into another form. This is mainly useful if you want to add unit tests to an application or application framework that has a standard main form. Using a TEmbeddableDUnitDialog
you can simply embed the GUI test runner into your existing main form (for instance, on a separate tab page).
Sample usage:
procedure TFormMain.FormCreate(Sender: TObject);
begin
inherited;
FTestDialog:= TEmbeddableDUnitDialog.CreateInto( Self, Self.TabPageTest );
FTestDialog.Suite:= RegisteredTests;
end;
procedure TFormMain.FormDestroy(Sender: TObject);
begin
if Assigned( FTestDialog ) then begin
FTestDialog.RemoveFrom( Self, Self.TabPageTest );
FreeAndNil( FTestDialog );
end;
inherited;
end;
CVS $Id: readme.html,v 1.1 2000/12/06 15:08:11 peoopus Exp $