|
|
От: | pave1 | |
| Дата: | 28.10.02 10:22 | ||
| Оценка: | |||
HD>procedure TB.ShowFormCClick(Sender: TObject);
HD>begin
HD> B.Enabled := false;
HD> C := TC.Create(Application);
HD>end;
HD>HD>procedure TC.FormClose(Sender: TObject; var Action: TCloseAction);
HD>begin
HD> Action := caFree;
HD> B.Enabled := true;
HD>end;
HD>