Delphi. Программа-шутка

Вместо закрытия создает новые окна самой себя

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=TCloseAction.caNone;
with TForm1.Create(Application) do show();
Form1.Caption:='joke';
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Action:=TCloseAction.caNone;

with TForm1.Create(Application) do show();

Form1.Caption:='joke';

end;

Delphi. Программа-шутка

MY PROJECTS

Recent Posts

Categories